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MIDIiUMia.-* 

TP 9 )\s<nW% 1 0;U£ 3 > k* 

■>-tz-?-f -+f— tzci=i > bfa— J? 
tf&Uc $ fts y^rA <7)ftJ WIt 
frtoftSJ: -5 lz&r>/cc7)T'T 

ia£l T-'v^Uff-^-C&SMIDI 
&&-5 tz«\ 3 > tfi— # *<i0S 
T'To H:fi?^/l' • 3> h □ — 
IW&KMUZt^Xy MIDI£#BZ 

M:IDK>?— 7x<X£x.&ft(* 

l^CDT'To MIDIj££§tZl2'j£T 
MIDIO?— 7x-f**<JHft3#l 

MIDI-f >^— 7xi-^^-ffl^-rtl 

TT D Tf<7)IS*Ws MIDIc7)7.^- 
h MilWrblffrfrftTl^ To £ 

ii®-f m a $£#$ t£fcm a<# $ 

fc C i *; s £f§ a #T-( J»iz fc 

UT?fcSft£lV^A,£iIJ|£T' 
#-§)c7)TTo 

s tz, $gm $>; <v 3 >cjSv> 

^(z^joo&ysTo £(=■$*■ 



<m$frl)X*To ^LT, /\*V3> 
<7)^*S«B&fc£il L T # * L /Co 

Stftetfci* ft> $ b (z (i+f > 7° ij 

3 > t> MIDK > ?— 7 x -f ^ £}g 



MIDKWLteS 



MIDlCOy 'J v Ki x ^$I(Z^ 
%&.&■'£*>■& btlZZt XT, v 
>-tz-9--THf- frh*?— V LfcMIDI 
(ix WT3lgg<7) =i >#-*>!> 
it£}S#£L/Co Sf(Js ->>i? 
tK if— roftaQl&ftttB&'QI) 'J 
gt£ft s MlDUz J: «£HB3 > h a 

K • P>hn-7-£:£<frtfciL/c 
c7)T"To ^Tj-TjJU&ilSIS&lis 
=i* h^'7> J t»3>/\°^ Mtizfc 

tJ7>^y7-ft£ft, ±m3ej1s? 
ftfttf£tifiizfc U * 2><7)T-t 

2 £ l<7)*-#- K Stm? ft b 

& SHStffc l v« -5 A^IMt h J: 
< TH#IJ ft Z. fc #£■ l n & <D T'To 



ft'JiLfc. &3i£*l<fc-S-;bl+3 
fc, fw/oji-: > a >#<:££ < 
Sl^ftJcirU STo Elites z i: 
(is &*£L<®fi*itZW.W£7 

^fE'J<7)/5>£T'To £fc N #<fr<7) 

£*.&*•£•*>-&* z t tfXZZtzib. 
g-3-(Zv^7s h • 7-r -y h L/c-> 
^Afc-i&lfcZlfctfTgS^fcll 
flJTT^o 

ffl L/c midi isn—y— (*>—*r> 

7°<n$i%z$:±frliiL£Uz )$m 
fiffl % f < $. > Tfflg [,%&*>* 

it^ibcnX'To midi 1^3—^ 
-dctUs gft|0|2:i^«9^ 

^#<M^LTU#SL/c T 7 ^- 
n^'->>-tc7)B^ft^b, TT'JZv 

^TUiLfc^ <r— 7JK7)*|g[ 

iti^fcc7)T-L/co 13&75J: -5 (z-> 
-'7->+/-* < t : SL/cc7)fe s MIDI 
tz «fc U ffl*(Z5^SA<«gBET-# * «* 
9 (z ^ -3 tz tsmf fWVTo 

mtt&mm 

<Dt>\ *-*- K ^ +-TC- K<7) 

aarcfo fcttttMiDUi, 2^ 



(fl^-3 L «t (ZP|oT < ft* t ^-5 
MIDIi^sii(jZc7)2^c7)+-^- K 

^•SIk L xm b T i: l ^ -5 ^Wj: - 
fc tft X h WtoX o tz (D T'To 
Z^-P^V>-b(75B#f-tlZ(J, -f5J 

* fc C7)^T— 7/U^^Se L # ^ sT 1| 
bTZ^* ? T•#^■tt^T'L/c L 
^fc N MIDIc7DcJ:9(z^— $ft/cfc 

C7)T1J4-<s #^-73-^gc7)75 

>STlT4'^)ft T l^/c /c *6s n L^ 
5IJc7)^tl^^ LT"c7)^^^TfgT' 
L/Co l^ft<7)>-*-t), S* 
^(Z(J 1 ^c7)-y--7";UT" 1 1<nm 
^zj>hP-/ULiLfc L/c 
tfoT, /co/c 1 -30>*»&*HB5 
^bnlbTtzfc, ^1, ft, ^ 

^'jZ^i:LSTo zft/c(tT'3* 
<7)4r- 7;u £^ l ^ (tftff «C U 

h 4 i:'c70^ \° =? * - 9 mat^ 'J v 8 
Ts-f7.£*ri6tf-<;*. ttz^ty 

4---7jwr)%m.*mx.ztz'ttxm 
jkLfc<<cy*r. 

tZ.^*<MIDIc7)if^ v l^)>r 
-7'^^^T-S) /c ItT'OK i: l>o 
¥^i?TTo «>^C % Cft/ctt^ 
SL/c^ltT'T*\ ztihrv? 
MV%tzfrt>Z t&itZfttW*. 
STo ?^!(J^/coT^^T'To 
^#T*llJc7)^^c7)MIDIc7)0UT^ 
^sr>S#s?ft-g>fJc7)MIDIc7)lNiffi^ 
?rMIDI>r-7JUT^^!LST * 
LT^fffJc7)+-,Ts- K^r^ftCi's 
^U— 7"fet v -3 Lct(ZP|oT< ft 

* (7) T'T 
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)m®ti 



IDI*! 



. 





Ch2 :*-*•' V 

Chi: t:r/ -n 



MIDIjHr>f- 



K7A 

TN Ch3 rfl try 



oaMHK"* * * -) £ SflffiO (* 
i/-7) fci*-5HflfeM8M:fcfc* 

? - 1 * \s - 7 mWk t w* f o 

1SIB[<7)MIDl3^SA^«fi)£$tlSffl 
St^MIDIv^xAXtK S*WC 

M\D\\i.mfcz&ft 

M I Dl ( J s #* <7) fc C7)X(2 fc < jH 

mmzittiTo i*»«midi& 

bftXl^-fo ^CO+XlfkS* 
t ti & (Dl J J - h * >/* 7 • ^ -y 

LSTo 



n, *ls-7'lzmt)Z£tlZ? 
XU—-7tfZ0)Syk—i>%&tt 

fix, ■?x?-<nmB&*1fatl£. 

ZA.£teS-hX7t) < &htlXl' 

--7<r)%&b±&i)$iT tzh 
MIDIT'ti/— h#>/*7£«i; 

? nx fc »j % stM*$tf *r y to 

yal/->a>*1'-ik tl-yf 1 
sOy—t l^fc/HHfc MIDI^r- 

7;u i afreiK*. 5 - £ **T* S Tc 

?b(3li, v->r>Ht-(7)=l>h 

fc * ^it§(7) + (- is t nx i * ■& (7) 
xt 



OUT 



■3B&E3HHHH 



Mini 



PnuTiimiW 



our in 



MI1U 




»lA- ! -r'' •<■■•- : 



MIDI lit J-? 1 + >*JU£ u-)lf 

ttfEfeftfeU HI", 1 *<7)MIDl7 

til«*3l-3fc<75X*(i, *iWt**T 

LTL*t\ 1imibLX^& 
(75 £ **£ l ^HK= ft 'J S "To ^ 

(i»J#-^* h?(D£llZ&'g:%S 

IzL/c^fccoXTo *~T% >-y 

CfcCcfc^ y-y-b-v^ril^L 
TSWC** J: -5 i:4rjTi»it, 
*> i -5 i:"TV(7)^ -\* >*;i/0) J: •? 

£ *> 0>T» * U -7lilJX|^-r * 

SffX#^>c7)T'1-o L^fc^fflJ 
A/Fyi-f^(|Ut 1 *J.1 

xnstfttx i * § ^a) x-( s & »j * 
-tt^ ^ b s * l^ - 7't j<7)gft -\-m 



o < 'J X-fo 



7/^*' 






H/fiSt' 

/ \° 7 n > ^ ^X g K)^# «r "T ?> 

#x#s-a-^ fcisi^xfc. a 

(CAofc15r^fc<7)MIDIs^S%-ffl* 
1*§C7>B N 7°nx^d:t^#"'Jffl 
Itxr^ i:z^*< N vjb^#S 
i:Wfns«jfi<7)#^(i, 1 £X* 

Z t A<T# § 4 ^ ^^I^UX-To 

?r fc oifeti^ i r & r m*. •? •? & 

§ (7)Xl- 

1 -^(7)ZL--y h^b v 'J XA*< 
|:i / f y * > ^7&<HX- b tk 
fLtvnfeo /fya^fcvju^ 



*?ti5, * LT, »L/;i: #C», y - h ^7£7)y 7 -b- v*r;fttt5c7)fc% 




tuc^ii7 h*\ ft-&$-o)-> >■&■*'(■? -(nft.t>') <k^tzt<T)X-t, 



itzfr c 
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L MIDK>$-7x<f *mZo\ 




tsixwm 



T£\ MI'JA-K^ltco 

£-5A,T'Tfrb 

MSX<7)|*]g|5T^'J £ 'J LTU-5/\° 

•y K-f>?-7x-r;*-ey:Z80&W 

< * £ I v-5 & <7){ J'j&#fc I *Afc*lt 
ft£\ MIDI<7>%^(jXt— /A^f 



¥fs^LTfcb7<7)*\ wz*m 

Z80IZIJ, Z80SIO*\ &£l*(i 
8251 #¥ C*^> &<7) T\ J: < flSbft 
TU£T ^HKi7°P^'7Afc^ 
#"C\ ^1^8251^-^1^ To 

g|5p° n (J, ^K&S£fc»JT*T 

r>lt& £ C 3 <* bl &%* 5Wh 
tt*TT\ ft**t*S < L2T 
+ 57ji;i/K£GND3& c *>a — h l-T 

£T\ T'£2 Lf;b> MSXClfc 

yottTs in£out&[I]i;midi^ 

K?U, OKftb, OKTTo 












f- x y * U 


X h 




iizi 


'825 


1 TEST PROGRAM 


C 8251 3 


20 


0UT1 


,0:OUT1 ,0:OUT1 


,0:OUT1 


,fcH40: 


0UT1 ,&H4E:0UT1 ,&H15 






30 


FOR 


I=0TO255 






40 


OUT0 


,I:IF INP(0)<> 


I THEN 


PRINT" 


*" MM/T 


L£" :END 






50 


NEXT 


iPR I NT "**/*•$£• 


«+" ! " 





• SffliJUCA'j.-iSCT-rc iE^li*fflfrl^^T•■r*^ tf&iifcf-jT^itij', ^3;*c IHS§ 



* h 



TTL 



LSI 
ICV^r-y h 

«*fc(l/4W) 



MCC-159 

4.0MHZ- 

74LS04- 

74LS32- 

74LS139- 

74LS393- 

PC-900 — 



TMS8251AP 

2SC-1 81 5 

1S1588 — 

28t°>mK^>ymm — 

DIN 5 tf>**R/\>^#ltffl 

10/^F50V 

0.1//F25V 

220Q 

270Q 

10KQ 
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mxmm^-zm • 2992W* e*[5]Bf#§^ • 8 *. 
y—mmyQy^Azm^zfrZbtzo arc* 



BASICr^J:! 

^•[1] C'^S^-T -5 M I Dl 7°P ^ 7 A 
(J, MMLT--?£f£fflLT, BASIC 
C7)PLAY^<7) «fc -5 H7°P ^7A^1 
frLft^b. 60-9-(7) 1 iR|H7)f!lU Z 
* 9 -f v- £f£o T/H#LT L £ 
■5s £i^ fc^T'To itzs MIDI 
»>-^r >-9— (75^pg If mz J: U . 

*\ MiDi«as«fc*j(7>im?J3Jb<T 

7 7 hT*(iAS<7)T'-r^ fii\ 
BASIC^yp^'^AT'J: < ::;:£T• 
cto r--r* s «bs ?-r MU=iok£ 

(J, #£^3£t;*Wa, &<?> 
midi fc > 'J Tvuilil, m c J: T 

T'To ttlit, ?<7)$i&&!£ — 
^CO^ExATIi, 1 , 200*- 1 ti\ 
2,400^-^^T'Ttao #— £(£ 
1 $M CM fc'y bT&tl&frk I ^ 

«3> (J/zLTMIDUJ? MIDlft, 
31 , 2SM?— „ T n bUtTf te D 



MIDI<7)$5SI7*— "7-y KJ % V> 
/N'U^-f— 7>* h~y7*t'-y K 
8 L'-y K5*- ?*#(?) *C N 1 /\*-f h 

h£* h'y7°t"-y htfiq3t<?ftT v 
^g&TiOt'-y h 

10(t''y h)/31,250(tf-) =320 
(//sec) £ l \ 9 3 £ (I # -5 c7)T'"to 
C<7)£fcfit(J s MIDIC7)7°P7'7A£- 

MIDI(7)±fc U V> K £C CTJB 

/— h*>, /— h*7 s 7°p 

> h P-;Uf L x>v(/1-:Ua-A v 
/1U^-><>K tyiU->a> 
^'(W7i? hP> h n—)V^r 

m&) ^tib(Jf-^>^;u^-y-tz 

-v£«ftT, MIDIC7)16$>-5^ 
■^(7)(S^(Z MIDI<7» 7. xA£# 

i:^^T( 4->y;fA^7i!- 
i>£i^i<nb&i)$.T X777 

JU- •> 7V -y -tz - v (WBt*— ? 
(UXAVv><7)7^— K7 h-y 







m 


, 1 1 1 


cs|i- |e If % % % 1 


Ull 


-III 


C^VlE |»|G JiEjB \ 


in 


111 

F |G 1® |B 


11 1 Iff 1 

C 4[I- |E IF T© Th IB 1 


ii 


-III 


•: 2|r- |e |f ":-. |h |b | 


•? . m m 1 



t7'D ?'7/»^IfiT it. ZA. ttUffl *<?!=;£ n 4 r , 



-¥>S3<i:-Mi 



# 

@7P^5AB^A*o 

®^P^5AC*A*o 

®JU<?3kQ\Z-DWtfT.s SOOOfrcfcD^-^ 

A^lo 
OTPif5AC3+7 fc -*«7*-f X^Ctz-^o 
®^P^5AC+x-^0^P^5A«l«7o 

tt-ytsti&o 
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$X, XiZ7°n?'^l±<Di$ 

^•@(7)'>— <r >V— 7°p ^7 A 
It, ££[ST- 3 o <7) 7° p^ a *rb 

t -%m*5lT fc *> x. ttt^tz i * 

k^Ll#sjLTfc#i: Let -i„ 
boilTfcb^i Li 1 7 = p 

BASIC7°P?'vA MSXIZlS. V*> 

>3§<7>^-^#% v t\& v btoo z:<7) 

wfcto <ncnfc, atjs* 

<7)&l^0C o A73#— JSH*>0 

7"'LTfcZ9o 
* L T> x^CfV \' 7 ?* L fc b s 

frLTLSfc-5 ! *0)fc#Ctt\ 

-r<7.?P---y MZ'M\ ##& 

*^£-try h LTfc< ct ^ tz 7° 
□ ?y A<nmm~ ck l J £££ L fc 
V->>I§(7)7 7"l'Jl4ct, x-f*? 
(Z*MMLSEQ.BIN" 1 1 1^0 7r«f 
JU£T"tz— 7*c*ft$ Z<7\ ffL 
<*C#fc7r-f /Wft £TtA-fc7J 
"CTJ: #>* titl. ZC07P 

??&& i t1t£lt& zm's—'r 
>•*}■— "TnyjAt&s T^T 1 *fc 
caxV *£ iz-lz— 7*f $0)& =fc 

^>L^£#L£1\-. ?<M$ifi\ 
t£\zfrtm\\tifrh 

£T N ^W7°P^7AB Itl 



note- 83 step time= 
note" 84 step t{me" 
note" 83 step txme= 
note" 81 step time" 
note- §3 step time" 


48 
24 
24 
24 
S 4 
24 
24 

i 4 

S 4 

24 

24 

24 

144 

24 

24 

24 

24 

24 

It, 

o list run 






note" 88 step tir 
k«ufu step ti 
note" 91 step ti 
note" 89 step ti 
note" 88 step ti 


']■ = 




'- 


note" 83 step 
kyufu ster 
note" 89 stef 
note" 88 step 
note" 86 step 
note" 84 step 
note" 83 ste» 
note" 81 stei 

B8E8 suto 


ti 
ti 
ti 

ti 
ti 

i 

ti 


jot 



^ mMtizmssmy^y-fy? 

£H7F"f&fctf><7)7°P:r7A * 
ft£|5]B#(Z, T^T(7)'jZ^^7°P 
y^L.tr- 1 *ft<7)-rV *£JiC-te— 
7 T*# fcf80gT\ :<7)70 7 '7A 
B£P-KLTHfrLT^tUS\ 
v->r>^--7P^7A7t)<7.^- 
hf-Sx v*xAj£*,_hl7W-& 
<7) 7° P?" 7 Alt' etc 

"CIS, ftft0>* i^I^T'to 

£ fe M$ 7n^7ATA5, 7° 

P ^7 A C BASIC(7) PLAYTV T"# 



mm^x\ zz.a)tz.h<nw% 
izi-ifri)£mv&iiz 

Z<75V7 hT*(J,l.vbW>*PLAY 

3ti:LT<7)^ie<7)L*^(z(J, l^ 
<o^ijpi^$,(jctf f$L<li, 
£#J<7)S£ Ji*t fcbii: <b*r& i: 

fi(7)x— ?£500(tfT«J: 'JfFoTL^ 
<<7)T'To fLT, 7*— *A9J% 

7 7lt, — (St— tvc*?** 

To -tz-7>'T-#/zb, ^<7\ 7° 
P^'^A^-RUNl-^COTTo T-S) 

K K K FtmZT.fn— /ULW 
bT'TISto ZC7)^# S Z<73V 
7 hC7)7=f-V'y hlZ^^/zff$5t 

?nTl^<(7)T'ro ^lt, ten 

en *j -^cot 1 '— ? =&■ t* -r ^ 9 \z -tz — 

7 S £ D U*s :nt; — T±^' 

A£& : l=?;ii ; 5-MIDI-7--7";UT' 







,m 


,ii 


,1111 


,iif» 


:U 


,!UI 


1:1! 


,m 


:il 


4111 


E 


■■I 


" 


Hill 





• x-?5-S*SLTl»Si 



>x-r, 



tjSll^tectSi:, v-?*<gsij $T.- 



«ffl7*Sav>K 



:W77 hT-y-^-h LTL^av> K 

Cs D v E, F, G, A, B ^<7)S£, cn<bl^Js ^^(Zfcl^^L 

^<T^ t3^'JSTJ:^ 
R iffi Ztlb^aii&l^ttPLAYtZitz 

+,#,- ^^r^^-blf^, *Sl^i^$Ttf*„ 

tt£o 

L §(7)S? *iB6t"&fl :07n^7A"PIJ 

4 7>^^<7>7>^Hl %■ 48 (ZIS^ L T l^ § (7) T\ 
64t>^^ : = 3 J X-Bj&X-foZ> Ztztzti. 
(i\ 3iBI-t6ttL1.2, 6»=8{iL24 

V ^Pyr^:*LTl^ V 0~15S\ 

0~127lZ^^LT^-S o 
@ t£f-i>yffl«av> Kff ZtLlZi^ffl 

r^^ffiti, 0~127(7)$gSl o 

Z0V7 hT'+f^- h LTKj;^37> K 

UT(7)P-7>K(J S |SlU|^<A\ »3W%*\ IT(/:?U„ 
S x>^P-7°(7)^-l'7 o zntiBASIC_bc7) 

x\ z<n&o K'>— y>7-7 7 nc(i N 

M iXP-y^/IM, ±IB^|W)LIIfiT\ 

& *7- zntctZ(7)77 h<7)%&, HUPt 

_ H(7>^Ho ?^fc^tf-hLT 

u^uc75T\ mmn^zmxixmfcLx 

<tz£l\ 

Q +-*><7>g<7)g$[Z*tTSf^(7)ilJ'&o 

- (7) V 7 h "CIS* ^:i:£ Ji^fiSt ? ft^ 

(7)75^ \°— te> hC®£*tiTt**fci6C 
zc7)pv> Kfettftt*'-ttA. 

N ^-T-WN'-^^fiTl^T-S^i-^PV 

>K^BASICH(J#^LTl^T^\ ^@ 
<7)-<7)V7 hT-tJ, ^^, Oj'JCtfrG 
^^LA^x.^i^Tlz^-^TUct-ro il 
ISLfc + -7-WN'-T'{SA7:T-§ *-l±A,o 
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7H*iwaiwic»« 



it. Z<T)~>-+r>V—V7 h 

tMz^Xb\.^X?frh ti 
£*%\.*£ s ♦ i'Cfc-afcPLAY 
XMM<D-r—?$:^t-iX, Z(D 
77 h Cfgott ac£L*r?#fc 

lil^oTLH T'L«t ? 

$tobfr^T*\fc. &*k tec 

fc£L*T C(7)hu<7)^— i?{z*> 
-3fcJ:-3£\ +M*— h LTt**a 

v > K £IM L X s MHrr * £ c 
*>C2£oT s ^M-t3£c^(S^ 

«fc < ct < <&T<7*T, T12 s *<7) 
7 s — $ £ BASIC_bT -^ h #T fr $ 

Ln Msx-Music*^ii$ n 




I:o : RETURN ELSE PR I NT " MML «7: data t"' ?5£33r 

748 FL$=FL$+ " - MML " 

758 BSAUE FL£ . &HB888 . AD 

768 END 

5886 MML sumple data par t-1 -pa 

5888 MML sample data parti -part 4 Csumpl 

$3 

^.L-i-l 8 '' p.=*r -■§-. 1 

5828 DATA 337t-148Ml418o5 

5838 DATA edcde<a>-f 2. dc<b>cd<oi>e2- 

5848 DATA c<bab>c<-f>d2c4<bag#ab>dc<b>cde 

4 


5 


Li 


!>H M 


hTh ed 
AiA c< 
ATA 35 


= : 

b 


:4^<a>+'2. dc^h>rirf^a 


>e2« 

b4a2-> 
32 ■ 

»2 > 


cr 





hH Tj 


3 L- r ->.,-.< 


-F>d2o4<baci#a 
>c<b2, ouPe-foib 
2b4>c<bab>od 
b2. r ^>-fi^dr:<h 


CT 


878 D 


acrfga 


cr 


H88 D 


H ! H "he 

ATA rS 




e-raGHf 

fedo< 




890 D 


510g I'hTh r3edc<bag#2fo4r8ed<foae<a2. 

5lly Data * 

5128 'part 2 

5138 DATA 337tl28«,«15c«6 

5148 DATA r-2. r-2. r-2. r2. 



• 'J^t-frb, C<7)7 7 h(7)7 7 — ^7-y K jgit^-Iil^K^TAT < /;?l- 7 1 - ? (7) Jg £ fl\ /\- I- OK-fri #' £ t3 t 



Tl^MSXV->>T'l2, 8/n°— h 
FM^gTRlib LT#ftWri^T'L 
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1012!© ' 1-7;/ ..' D'-oiil "i 4*94 3- 9" -6 

K110 DEFINT ft-Z:DIM M* (3) ,SW (5) ,Cl. (5) ,CR (4 ; ,DX (4) ,TX (24> , r 

1020 GOSUB 1!00:GOSUB 1550: GOSUB 1950 

1030 GOSUB 2130: IF TI MOD 3 THEN GOSUB 2130 



1040 

N 

1050 
1060 



IF TI MOD 



THEN FOR N=0 TO 4 :F=CR <N) :BOSUB 2278 :CR (N)=F: NEXT 



IF TI>600 THEN 1220 

IF C=l THEN C=0: GOSUB 2370 



1070 IF FL=0 AND UY=4 THEN GOSUB 1S50:FL=1 

1080 IF FL=1 AND UY=22 THEN GOSUB 1950:FL=0 

1090 GOTO 1030 

1100 ' z jattvf4 

1110 SCREEN 2,2,0:COLOR 15,1,1 

1120 FOR 1=0 TO 3:READ M*(I):NEXT I 

1130 FOR 1=0 TO 5:READ CL(I):NEXT I 

1140 FOR 1=0 TO 4:READ DX ( I ) ,CR ( I ) :NEXT I 

1150 FOR 1=0 TO 255:READ D$:VPOKE &H3808+I ,VAL ( "8cH"+D*) :NEX 

1160 FOR 1 = TO 24:TX(I)=SIN(3.1416/12*I)*7:TYU)=-C0S<3.14 

)*7:NEXT I 

1 1 70 DMY=RND (-TIME) :P=RND « 1 ) *6 :Q=RND ( 1 ) #6 :R=RND ( 1 > *6 

1180 IF P=0 OR Q=R OR R=P THEN 1170 

1190 UX=7:UY=22:FL=0:C=0 

1200 TI=0 

1210 RETURN 

1220 ' r-£*-A" - J i'a'J 

1230 PLAY "5lm20000o412afgc2.cga{2." , "slo21 2*4 gc2 .cgat2 . " 

1240 SCREEN 2,3:RESTORE 2550:COLOR 1 

1250 FOR 1=0 TO 63:READ D$:VPOKE &H3800+I ,VAL< "&H"+D*) :NEXT 

1260 FOR 1=0 TO 31:PUT SPRITE I,,0:NEXT I 

1270 LINE (32,0)-(199,191) ,15,BF 

1280 OPEN "grp:" FOR OUTPUT AS #1 

1290 PUT SPRITE , ( 128 ,143) , 1 ,0 

1300 PUT SPRITE 1,(128,143) ,10,1 

1310 PSET(40,24) ,15:PRINT #1,"9-<MJ HM&bK u 

1320 PSET(40,44) ,15:PRINT #1," f£*£ 1-\M Ifo^C" 

1330 PSET(40,54) ,15:PRINT #1 ,"*;.;*< IT StUS J<WH»l" 

1340 PSET(40,64) ,15:PRINT #1 /KF&V, 

1350 PSET(40,84) ,15:PRINT #1," i+Ml> tH 

1360 PSET(88,144) ,15:PRINT #1 ,"#■-*!" 

1370 CLOSE #1 

1380 IF STRIG(0) THEN RUN ELSE 1330 

1390 ' T-£*-i\"- J 5«V2 

1400 PLAY "5lm20000o514co4go5cdeg-fdc2" ,"vl4o312co2ba+o3c" 

1410 FOR 1=0 TO 31:PUT SPRITE I,,0:NEXT I 

1420 FOR 1=32 TO 199 STEP 4:LINE ( 1 ,0) -( 1 + 1 , 191 ) , 15 ,B 

1430 LINE (231-1, 0)-(230-1, 191) ,15, B:NEXT I 

1440 OPEN "grp:" FOR OUTPUT AS #1 

1450 PSET(64,64) ,15:C0L0R 1 

1460 PRINT #l,"l"i?! tCfcofc?" ! " 

1470 PSET(80,144) ,15 

1480 PRINT #1,".^S£«'" 

1490 CLOSE #1 

1500 PUT SPRITE 0,(48,63) ,1,0 

1510 PUT SPRITE 1,(48,63) ,10,1 

1520 PUT SPRITE 2 , ( 128 , 143) , 1 ,2 

1530 PUT SPRITE 3 ,( 128, 143) ,13 ,3 

1540 IF STRIG(0) THEN RUN ELSE 1540 

1550 ' 1"-L .! ti'fj VJt4 

1560 CLS:LINE (32 ,48) - ( 199 , 175) , 14 ,BF 

1570 LINE (56,48)-(67,175) ,15,BF:LINE ( 164 ,48) -( 175 ,175) , 15 

1580 FOR 1=2 TO 6:LINE (68 ,1*24+10) -( 163 , 1*24+21 ), 15 ,BF :NEX 

1590 FOR 1=8 TO 3:F0R J=4 TO 24 

1600 LINE (J*8,176+I*4)-STEP(7,3) ,(I+J)M0D2+2,BF 

1610 NEXT JsNEXT I 



T I 
16/12*1 



,BF 
T I 



*8Cf7*fc^<fc 




tfl ^tf^nx-i - < A.ii?c^-^ ! 



■ i ■ - 



ft 



*a$ij"t4i:> (i"b, ^A-tt^ffttf- 




&n<Dvm 



1000 
1100 
1220 



1390- 

1 550- 

1720- 
1820 

1850 



1090 
1210 

1380 



1540 

1710 

1810 
1840 
1940 






1950-2120 



2130- 
2180- 

2270 

2450 



-2170 
-2260 

-2440 

-2710 
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z <nv-M$mmmtet<n 

X\ l=7v?£ffi^LXh¥—A 

i Stiffs. y^r<^oTL*ui 

M3 ~ £ A<T*# &l *A(i 1 030*t<7) 
IF Tl MOD3<7)3£2(I-f3£^ 

To &CfflKlff.*£$& Hi; 

< 3^-5 < h^izLxmmmm^ 

%L<LXfrtzi)s 1040frlZ&$IF 
Tl MOD 2 (7)2 £4 (I LT Y=?v<7 
(D* t°- K*5S< 3-tt££i|L < 

*?* i-SKc U CCT L T&-5C7) fc 

fcfcL^uaxfcL..tt£-£A,;teo z 

<7)if-^{ J 1 31 Offtf h 1 350ff S X'<7) 
PR\NT$;%%£x.X<K$l\ 




162i2i LINE (32,46)-(199,16) ,14,BF:LINE (I04,15)-(127 ,8) ,14,BF 
1631? FOR I=i3 TO 20 :LINE (33+1*8,20) -STEP 45, 5) ,4, SFsNEXT I 

1640 LINE (103,20)-STEP(-11,27) U,BF:LINE ( 128 ,20) -STEP ( 1 1 ,27) ,6 ,B 

F 

1650 LINE (32,28)-(91 ,47) ,5,BF:LINE (140,28)-U99,47) ,5,BF 

1660 LINE (96,24>-(99,39) ,15,BF:LINE ( 104 ,2) - (127 , 17) , 15 ,BF 

1670 FOR 1=0 TO 5 

1680 LINE (240, 16+1*24) - (255 , 30+1*24) , CL ( I ) ,BF 

1690 LINE (242, 18+1*24) - (253 , 20+1*24) ,15, BF 

1700 NEXT I 

1710 RETURN 

1720 ' IV ta7i'" 

1730 LINE (220,16)-(235,143) ,1,BF 

1740 MX=228:MY=16:MM=1 

1750 OPEN "grp:" FOR OUTPUT AS #1 

1760 PRESET(MX,MY) :PRINT #1 ,MID*(M$,MM,1 ) 

1770 MM=MM+1:IF MM>LEN(M$) THEN 1800 

1780 MY=MY+8:IF MY=144 THEN MY = 16 :MX=t1X-8 

1790 GOTO 1760 

1800 CLOSE #1 

1810 RETURN 

1820 ' fir 1 12 

1830 LINE (220,16)-(235,143) ,1,BF 

1840 RETURN 

1850 ' iYjt4 ti-f'J 

I860 FOR 1=0 TO 31:PUT SPRITE I,,8:NEXT I 

1870 K=0 

1880 PUT SPRITE , (224 , 143) ,4 ,2 

1890 PUT SPRITE 1 , (224 , 143) , 13 ,3 

1900 SM=-(SW(P)=1)-(SW(Q)=1)-(SW(R)=1) 

1910 M$=M$(SM) 

1920 GOSUB 1720 

1930 IF SM=3 THEN 1390 

1940 IF STRIG(0) THEN GOSUB 1820:RETURN ELSE 1940 

1950 ' taWl-ja H'?h 

I960 FOR 1=0 TO 31 .-PUT SPRITE I,,0:NEXT I 

1970 FOR 1=0 TO 5:SW(I)=0:LINE (240 ,32+1*24) - (255,32+1*24) , 1 :NEXT 

I 

1980 K=0 

1990 PUT SPRITE 0, (224 , 143) ,4 ,2 

2000 PUT SPRITE 1 ,(224,143) ,13,3 

2010 m="Ho»Ui iU£aTfl " 

2020 GOSUB 1720 

2030 LINE (238,16+K*24)-(238,30+K*24) ,15 

2040 LINE (238,16+K*24)-(238,30+K*24) ,1 

2050 S=STICK(0):SS=STRIG(0) 

2060 IF S=l THEN K=K-1:IF K<0 THEN K=5 

2070 IF S=5 THEN K=K+1:IF K>5 THEN K=8 

2080 IF SS THEN SW!K)=1:LINE (240 ,32+K*24) - <255 ,32+K*24> , 15 :PLAY " 

Slm2000o5el6cl6" 

2090 SM=0:FOR 1=0 TO 5 :SM=SW ( I ) +SM :NEXT I 

2100 IF SM<3 THEN 2030 

2110 GOSUB 1820 

2120 RETURN 

2130 ' \-T4 J ta*&* 

2140 IF Tl MOD 25 THEN TI=TI+1 :RETURN ELSE TI=TI+1 

2150 LINE (116,9)-STEP(TX(TI/25-l) ,TY (TI/25-1) ) ,15 

2160 LINE (116,9)-STEP(TX(TI/25) ,TY!TI/25)) ,1 

2170 RETURN 

2180 ' 1-Tj J -i- h " 

2190 S=STICK(0) 

2200 IF FL=0 THEN UY=UY+ (S=l ) * (UY<7) * (UX=7) 

2210 IF FL=1 THEN UY=UY+ (S=5)* (UY>19) 

2220 UY=UY+ (S=5) * (UY<20) - (S=l ) * (UY>6) 
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-(D 
1,5 



X(N)>iZi 
-(DX(N 
1 THEN 



TE 1, ,10*12 MOD 2) 



22313 UX=UX-((S=3)*(UX<14)-(S=7)*<UX>0))*(UY>=6) 

2240 PUT SPRITE , (UX*8+52 ,UY*8-1 ) , 1 ,0 

2250 PUT SPRITE 1 , (UX*8+52 ,UY*8-1 ) , 1 1 , 1 

2260 RETURN 

2270 ' 7Sil / -i"h"0 h MM 

2280 IF F=-l THEN 2350 

2290 F=F+DX(N) 

2300 PUT SPRITE 2+N*2 , (F*8 ,N*24+55) , 1 ,4 

2310 PUT SPRITE 3+N*2 , <F*8+16 ,N*24+55) , 

2320 IF ABS(F-UX-6)<=2 AND ABS(N*3+7-UY 

2330 IF F=<0 OR F>=25 THEN F=-l 

2340 RETURN 

2350 IF RND(1X.4 THEN F=24+23* (DX (N) >0 

2360 RETURN 

2370 ' 7«il z ?9i9 M= 

2330 PLAY "5lm20000o2e2","slQla2" 

2390 FOR 1=0 TO 5:F0R J=0 TO 99:NEXT J 

2400 PUT SPRITE 0,,1*(I MOD 2) :PUT SPRI 

2410 GOSUB 2130:NEXT I 

2420 IF FL=0 THEN UY=21 

2430 IF FL=1 THEN UX=7:UY=5 

2440 RETURN 

2450 ' I'jVjffJ J nhV 

2460 DATA " ItilM,1z-,W\MU . " 

2470 DATA "TjkllftZtkkbiTSlW 

2480 DATA H 0£1B hlhtW- ! 

2490 DATA "***! fi$ft£Wo! 

2500 ' * 3 Ofii/3 J -ID f*-9 

2510 DATA 3,4,6,7,10,13 

2520 ' 7fbl J •th"9 f*-9 

2530 DATA -2,24,1,4,2,14,-2,20,1,4 

2540 ' 77°7<h F-9 

2550 DATA 04 ,0A , 1 1 ,14 , 1A , 13 ,15 ,0D , IB, 20 ,78 ,08 ,08 

2560 DATA 40 ,A0 , 10 ,50 ,B0 ,90 ,50 ,60 ,B0 ,08 ,3C ,20 ,22 

2570 DATA 00 ,04 ,0E ,0B ,05 ,0C ,0A ,02 ,04 , IF ,07 ,07 ,07 

2580 DATA 00 ,40 ,E0 ,A0 ,40 ,60,A0 ,80 ,40,F0 ,C0 ,C0 ,C0 

2590 DATA 0A ,0A ,0E , 1 1 ,24 ,EA ,20 , 1 1 ,0E ,0A , IE , 32 , IE 

2600 DATA 00,00,00,00,80,80,80,00,00,00,00,08,14 

2610 DATA 00, 00, 00, 0E, IB, 15, IF, 0E, 00, 04, 00,00,00 

2620 DATA 00,00,00,00,00,00,00,00,00,00,00,00,08 

2630 DATA IF ,24 ,44 ,44 ,FC ,FE ,13 ,FF , IF ,F8 ,F7 ,6F ,6F 
2640 DATA F7 ,74 ,77 ,74 ,67 ,64 ,E7 ,E4 ,E7 ,E4 ,77 ,B4 ,67 
2650 DATA FF ,00 ,FF ,00 ,FF,00 ,FF ,00 ,FF ,00 ,FF ,00 ,FF 
2660 DATA FF ,01 ,FF ,01 ,FF ,01 ,FF ,01 ,FF ,01 ,FF,01 ,FF 
2670 DATA FF ,FF ,FF ,FF ,FF .FF ,FF ,FF ,FF ,FF ,FF ,FF,FF 
26S0 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF 
2690 DATA E7 ,EE ,EE ,EE ,E6 .E6 ,E7 ,F^ ,E7 ,E7 ,EE ,ED,E1 
2700 DATA F8.24,22,22,3F,7F,C8,FF,1F ! F8,EF,F£ ) ,F6 
2710 DATA END 



)*2 
)>0)*2 

C=l 



,0B,0C 
,A2,7C 

,04,00 
,40,00 

,0B,0A 
,F4,4C 
,04,05 
,08, B0 
,0F,07 
,B3,00 

,02,01 

,31, CE 
,80,37 

,40,30 

,01 ,00 

,F0,E0 



,08 
,20 

,00 
,00 

,07 
,F8 

,00 
,00 
,00 
,00 
,00 
,00 
,00 
,00 
,00 
,00 
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fc/aftfcfcfofc0>tt* ?-?<T)M 
tzVm&3*W<T, 7&<intz 

M%3&tm*r>X±fritz 

'\-mwmx\ &.i 




* H -5- K -T h ' *r - -j ! -f t> %<r> fcii 'J 
fc-f-7. x.x < A.lJ3?$gT#6c7)*r!? 






TAKERU 

7 h9i7>gSetTAKERUrBS 
SUrurTo TAKERUIS, A 
V =1 > 2/ a y ypTJ X- h & £T, 
±S©130*flffCSMUrSO^"To 
1¥UUI£B/£©'J7.M^ ^-y 
— liSOiES©^— ^IcSKt^n 

U-JbK ■7f^2/_Ll*> Hit 

BB©&/u&tf x7 k^lw urn 



£SfeUr# , J7-r££U£U5 
=&©u>£Uo fr&ouu-T*^!;" 

fr±tfom-g>©/c <£-U, u 

5A#£lVuL/^&Ufr&o €5 

SIB^r, ifiP/f©TAKERU'\M 
iMZ'ij«Dtzo 

3-)\s\< ■ 7^ v^zl&MSX 
RAM3EKW±r\ *x-r 713:2 
DD, 1BM&S8,000P3£efco 



(MSX RAM: 










"MSX^JvV • V7S£i7> • 3 

&<dx i jv±)\/ • yat7z3L,%wm 
usto stit)nfc^DP©*r, m 

^ c f : &©tlS^^>7 l J3075P3o : 5- 

ur^eiSs msmzKMbtzi^ 

CIS, ^n^tl20HRi:l07DFq^II 

o^sgufcu^^ft&u©* 
£=fc&orr)o ^tiaa*, *mm. 
z&nistzya-ytyAt:, H{f£g 

*Ufc:7n^A©-S|iB:,TAKE 
RU^fclSA->-7--vV7KtL/riS 



r ?>•?>) 




3Qm 



*#*-*«*10^fl 




•**BBP^ (D^-AS/^-'J^SBP! 

c«fco, Msxv^y>is±r'jf«a 
^y, TAKERU*fcfiWfcy£"-y 

To fteA©^D^^A©^:SC^fclS 



•JS»7?^ J^SI^SaicB, WT© 

©7n^"5A^12^Ufc^x^ T 7 

(70 >j/ tf-x-r *2,2j1zy Kf- 

7SGo 

©MSX, MSXE, MSX2+©SiJo 

^SRAM, VRAM©^^ D-K 

75^, PUtT^ JStJ^©SKo 

®s»t©ttRif, K€. ^i^s mm 



©ttP/f, K€)^s^l3Ufcfe©(ttP/f, 
R%lZ&®-?7VJi-)-*-DttZ<tz 

©Hffl*M^§IJ-, fSli#©7?©ft 
Bfx Bc€, *IS#^ : fe0^1BUr<fd 
iL^o ^fcl^S^S^TAKERUfe 
U<ISA-V9--vriS^T§iS 

^a«s©ffl«4^3Ea»ftn* - ro 
!f.ur<££n 



: 



© © © 



=1=107-24 SslB!Ei£WU6-lH 7.U-X7mSLUtfJb 
V7S5X7 • a>x7S(l 
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NET WORK 

F $©HABITATG)H*HS#7t--X/! 




±iiHABITAT*&i!l!! 



)\s—1i *7 -fJUAfttf) HABITAT C 

9 S *Q-3"Cl^«fc;teo /U— 2j*7 
< JUA*±£ L * -9 (7)(i, £><7)«";* ? — 

*i x *Att« l*->fe % SOMETHING 

NEW£jfc#)T # fcHSjtfHABITAT 

HABITATfi^y U *<7)^ * >? 
1 7 -C0^>7'f>y-A o (JfcL 









ig 


f 




3 

*■_ 

e 

+ 


- 
■ 


UJ^j 


.. at 

^J/f ■DP 



»^*^*, Turn? TT'j:J]>yT'#!iS i X'|Tl,Jom/: 



=f< if— W>— .5,-)(c^d*<*^ 
T— £ N HABITAT(7)f±A(i, 7/\* 
*— fclWil, HABITAT<7)1£#T' 

K3CX. 5 z. £ a*T*# 5<7)fc* hj^ 
tfifttf, S*iiSS J fll]«& ¥-& 
■&>$ —t£ gGNHfr ^*> i> h t£ 

^T-ffi#o/cA£ 
fcT'#6 "—ft 

ZC7)HABITAT7 
— JU K<7)tf T*f5j%- 




tiiCf ! HABITAT 7 — Jl>K~- fe T T < 

HABITAT7-;UKT1i, i3-<7)fl 
^£ i^TJMvitZ £ &X'$ Z> U 

*mc? $z>frhLtit£i\ *±# 

<7))\s-)\,tj:A.X?V< bx., £t> 
~£«rc#4 v i\ *A,#c££L 

M(t(J'M<($i:; HABITATS D 
ft^l^Wfc, HABITAT<7)7°n?* 



fZAa*&*$4lT#fcibs «T<7)Afc 

*> ms<rtiKz&tf % i&nm % wm 
text, m^-oifrgwz.tte 

tz^x\ %n^(r>z(Dz\—r 

-X\ g±iI#HABITAT<7)S;fcliS 

- x £ fclsx. L fc(t E\ ^-<7)ftx 
JEittZ HABITAT<7>i@*ti^*^^ 

izu-7t ^ —y--y'xB*m.<n 
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HABITAT rt^^S ifC^SWfc'o 

#3738000X0 H*ni» pc-van 
n# <*#&&£!$**•:/ K9-* 

0)ttR*tt&ak -7x-f— -9-- 

FAXX&LX<tlZ>V—£*Kt' 

it f>nfc siGti#w<7)^^ a^#s 

$8£A¥T*# * Z £ X'hAWi**) 
+1— 7"T"Bffi HABITAT «^3 

m~K 5 ftttHMa - 1 /fit £\ 
> s To^m^o^m^MKX' 

l** zc7)-<-vlzJifgL^¥* 
(ST^T, TOWNSfflCDll^CDJl 



*<%>&*)&£%> t<nz.ttz. i*&s 

* ij *>j-Ji,0) HABITAT t^T) t 
-V7<y7°$nX^Z> Mtifoo * 

tnz s i±Am±(nmma*mx 

ictefcA^&m 1 Bfc(i^<s 

B^HABITAT^-JU P^MSXa 

-If— fcWJ /v5 *T# %Zt 
Z'bft-iblZlX^ilOto, 



A 








M.tzV. xW*S*- 

-f ! j fc^*-L«f* 
•> g > * ( io £ -1) „ 

£tHT 3iSC»^ 
- ftlJ *)>#(& i£ AT" 




OUT - ? 



"^- 




TJtCAfc'ltiTft. 

JESBS-A<o ffii: 

fflofci: #<?>&&» 
i:*4-<x, 'Ml' 7* 
> -j -tr — v £g^f" 




AlflCi'TTLf T 

(7)fc' fc/TL^tac 

BGM-9-f > F#>, 
->->;•£ CD BGM"? 

*— ;U K7 7 7, o 
to T'fc, SSiSClJ 

rS)&}g?fo r *ot. 

a> BT£**-y7 
L #*%$*■< &A.T 

M.tz t a u . **?■*' 

7t * >if tzU, 

Atertitt. * 

<7>A<7):frft£|£]^T 

F-C =1 >„ l»%v.^*) 
StS-jl^f 

a>%««r5OTfc'o 






© TA\ A /rv I 
> FM I WV\f I M 







g±Jlt7)-3.— •7*»T0WNSTT o 
t£A.t^->Xt>Mfr2tlZ<7)te. 

#fo(r>M>t£izffi.&.&&tix\.*z> 

CD-R0M o ;V;z\>(F>1?lW\ZQ,D- 

RommmxmMztiz «* 1 «* 

#T'(J, J: < 8t'7 h^*\ 16 
t'-y h7-»t^-fl^ ! $) 
5T'L«to ^- ^-l"<-^^T-g> 
t, Zc7)T0WNS(i32t'-y hvv> 



^c7)T-rJ:o *A 

b, L«fc— *%tv 
?b(Z, 16X16 

896^1 b^mXZ Z> 1 1>\ FM^jg 
^xlx-^- 6 -T 1 ^ >^;Uc7)l5AHZ s 
PCM^;il^7sxU^T-8 ?-* >* 
M&^itt)- fe 

T ( J^^O teflSgCtz tLTt, H 




+>75Rfc-r^>o 

^'J&^-T, *±ii«s B*DS 

HABITAT ^-ZCO TOWNS H^^gLs 
«)Tl^<#^ibL^ (i^<MSX 
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<*fi(L rib* 




»Vh DE^— h 



[MARI] l^h-o L*l\ 
[GAS!] £C :n? |^<7)gB 

M? i*#fc*j, rA,ftu-^- 

&#)b*>? L 8 

[MARI] A^ta, m fcg** 
frfiHT*? rT*fcf££i5]-5<7> 

[GAS ! ] ftA,*)\ flR-<7>SRg<3tf: 

[MARI] f& 1 0c7)Ifi^rr-<#, fc 
£l£(Z2f:*:3>£ffiUT&(f^ 

[gas!] (ii\ isi\, tzzxz, 

Hlf (J/ \° V 3 >ilf=£*> (J fc < T N 
M v tWm&tZ&tzA,t?& te if 

[MARI] tStl/c^-Un(5£'f£u 
ZftLTS;bftT*feftlHt£; 51 

a*e, wois ssa5T#i^L/z^ 

SCJfc***:, u*>u*>IIA<ftLx 
T9T%&* 3 ct -5 C ft -3 fc J: too 
[GAS!] ft*;*7)Z*>l£ fcls^ 



£3CD# 



■*— TlJIitUgfc ?•+• -y h DE 

?- h -r £ *@¥ %-SH L T 5 * 
fcuTl\fc (J^di^'ip 
ALTU§^7 h9-^i: v ID£ 

ft7 rDEx-rftHT'&^T 
fro ^ T | -T ! 



IICDgR 



im 






REAL TIME CHATTING SVSTEM 

VOICE = version 1.1.1 

Helcore, 6AS!! 
u.„. pit. ......I 



I Twe '?' for infornation 
U0ICE» look all 
I look 

I No. 1: FREE, READV: free room 1 

I No. 2: FREE, READY: free room 2 

! ¥ J : JK' READY: free room 3 

I No. 11: ORDER, N USE: $b^?m 

t No. 12: ORDER, READY: 

! ¥ w 8SS' IN US E ; iiinsn 

* No. 14: ORDER, READY: 

I No. 15: ORDER, READY; 

WICE» look 13 

t look 

I ftierying roc* 13 

} No. 13: ORKR, IN USE. CLOSE: 

K , ■ « C«sx862j4] SL 

WICE» knock 13 



#S&1 @HJ, rx#-»* h MSXCO VOICE ROOM fclSfflL * Lfc 



fcitzbA,t& ?S£ <T US 

[MARI] ($b, ^VXffrtkWLtfi* 

•S (7 £') * -7 f •§> £ , ftiKDH^cDA 

[GAS!] ^i, /N°vn>iififc 

-«x(7)A(isb^^#-5 TS(t Atl 

fc*i*J:-5{::ftr>T#fc£JR^ 

tzift\ £tz£tz\ m:^oT 

i^fcAfcteW^J:*?. 

[mari] tnte ft, W^fM 

£\ H -3 T fc J: U Ja i ^HW-Ttt ft 



*X=I>S^ 




[GAS!] ^A, atoc7^g]^L 
T, /\°yn>a<-rA,ft*J£©ltA 

/ «v =i >iiff €-T § At*. ^4- < 

A3t%/ftft=|Rfe*iTtMt-3TC 

£ti < bZA.ti*.to X'h, 4-Tli 
7— yP*«IKRUT^*U 7- 

< ft r> tzfrh, L tzX^ iZ'gfo -o T 

L><Ai:^ftt^ft 

[MARI] ^-nn, ^\°Vr]>iifi^ 

[GAS!] fl^tL^H ^. y hcT) 
+ T'Z ^ r- -f 7' ZL-+f-£<|5£ e> tl 

-iizM- >/<— izfto^^^o i^-o 
■¥■(7)- ^:fI•S)^/zo/•cb, <!:;<!: 

LT(5U\ *-^im%T\ M 

[MARI] ^-^ ^ $)S(J^:c7) 
*S^ 7 r lZ®lgfe*A<ft l^ bs =t 

<^*vbftLvtt^ |Hx?^'J:^ 

[GAS!] "9^ iSfi5c$^$#oT 
MSX^/^7. h CLfcfWH^ -y r 

L**A"C *£<7>oft#»j£$#fc 



[MARI] ^•yhc7)^?oT, t&ffi 

( JLT „ HsWffoTfct?^ 

* s bS!^.-S>^fe L+lftl^To 

[gas ! ] ^-5 tztk mmm^'A 

*(D^hL*Qz.tz<Sl1^ *y 
V'i—'Sr&A/rto&S&e&.Jitzi)^ 
*v\-n-t B#ft<7)fft L i ^-f b^' 

±&tiT<%frhintj:\.\ tztz\ 

b* N ^l^7tt3 Szl -<r— ->a > 

ti-3^V3 >iiff *^±*c7)@T- 

[MARI] ^7 2 0C^nTl> 
< <7) A<iSSW^ -3 T, tiLXtzZ 
thhitzte* X\ z<n&*3m 

TfES^ (#JH) c7DSS_h^^ $ ^ 
fc«UT/--lt^ fzir^«*7 7'-y 

-> a >H#<7)1t!:^fi<]ft^ 7^- 

?**T-#f-b. rcc^^-r uts 

tti^c7)^-y h7-^i:7y1z7L 
SJi?i-ftofcbt^l^ftoT -tf 
[GAS!] 7t\ #^^. Zftfrb 

it, *-®-mf"tfm<nAtz*>tf 
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&&**? hfcT#T<5A,tff3 

A,;H*> *«yh*<$i.*fctt*C# 

bfr^< bl\ *-y r-£o£ <ft 

[MARI] i^iH^A^TU-?- 

T*1") fe B#P^<79f£l ^7J £ / \° V P > 
iifIc7)KH^«r, £TfcATOkc7) 
£LT V fi^iLfc, *-v ^7) 
*5frtfX\ g EgT«f±**<T' # 6 «fc 

-5 cz ^ -3 tzAtfm*. tz a,t-t ■? x „ 

[GAS ! ] 4-f'fc,Jg*l<7)St1'iSL 

-y Y^kfeiZtbh** C-Kb- 
fell] U*ft/Jtfl-££ <btt < f:otl^ 
[MARI] Ai:J:^T, tt*£*rM 



TM°vWT'7'^-tz^T ; 5)C7) ! 
Wi#fciv^*y3-f-f— (26:? 

[GAS!] Ayt7ff±$oTOIJ 

TB$M££.!e\£m&L*># j )o z 

tlnXy «t <#x.S£*=f-f::£ 

sh<:h£titzt£, ^-otz^tA, 
&£>§ LXZ>A,tzhlfrt&n tz 

[MARI] *>H;-<7)B#ft££k 
IZ±# b ft S o T K 7 ^ -y ? fc' 
i: © -9 o *^<7)fAlZ ( £#*. b ftfc 
fro fcz £ tf^HW C*?) feA,to 
[GAS!] ~ftfrb s fo-^^s **y 

vn— ?im&< t £%tM. J )£ 

[MARI] fc£* /\°V3>iiff^m 
XbtlKMHIZ, r %itlZ>j^ 

xztbfoZibiiT'TXteo tm 
£# N ^<niL-+F-(nAtz-ht)W 
r> L 'J i: ig^x i N«. Mtftt £ ft 
TLJi <7)TiJfrfc Ll^bo 
[GAS!] *S4A *'.)*> IKfcf-a 




T -f ? X7 fg^^T fc <7)fr'& -5 

PNS84 £ ^ -5 fc A,*C( J & < 4 s J: 

UzXUho CfttfofrUlJNTT 

Cz&VLfcfrLTfcbUfcl^o 
[MARI] *«y h 7—*—^ L<7) 



JlftNETfflt§c7)SII» 



[LOGIN] tf-vYlzmfctfite 
fr->fc£#> r P^-f>T'#/cj 

3K L0GIW2 MSX V79'v XDifiJfc 
HT^t**^). LOGIN: i:^?F 

[ID] ft§i:7'fT>f'i'T-f 

0>WHKte £ J: te -3 X u -7 4: £ 
(7)1 tD e *>y Mc#;&qT5£, 

ID#-§-£'j&-f fcb^Sfo 

liEE*7) «fc -5 ft fc A, * v h CT 
?-t»7x LT X LOGIN £^£ftfc 
b % I 7><7> I D## ^T"biA fc -5 c 
[•>^^] ^-y h^#(7)^II 

fnfTD^C o T I " 5 <7)A\ C tlfr b 
^ -y h £ £' A^JEC fcoTl^ 



^System Operator(7)B& — ISStl 

■7 -> > £"111 U JSfFT S A ( - ^ 
7^-f— 9— yT'ti> 7*-7A^ 
tfllT-SAcT) - i: ^-vTs^^^nf 
^T'L^)o *>^f*(-x ->^>l"^i: 
^■9<7)(i* SIG (Special Interest 
Group) ^rl^II, ii^T-SAfCo 
[CHAT] U TJU^ -f AXmfotl 
Z*v h_LT'C7)#Ig -JtH^lBt 
c7)A/z *> ^ fc L *^ 'J T % c i: fc 

^CHATlZti, K6H%M& m^c 

oTIt VOICED A\ CB->;ib 



-ox^z^tm^o 

[BBS] M4A.i«til>^'y h^- 

oT^rv.^* Lft4 v Lvtt£f 

3K Bulletin Board System(7)B£ 

^b^-y vn-^mw^^xmm 

tfX*TBtz<7)MtmH 

#£ 1200#— ^*\ 300Jit— i*\ 

«$m&$S(7)^^o /c^^.tJ'1200 
bps^: b(J\ 1 m^~ 1 200 1'-7 Y 

<?yfm& % && z t ¥T+g %fo\1 a 

[7°P Y ^;P] 7°P r- 3JU./ 'y-b— 



[GAS!] (5l\, T't)?s Rt^Hi 

[MARI] l^l^ &o^a)ftJtt£ 

tt ^jM ^*L «t . ^ -y Y *^x. tf N 
:0ft7^p ^(ien ) £*-<73 

[GAS!] f, -fi.^! 
[MARI] *-y h^-^^-oS <tt 

9K 7° P h P JU i: (i, ilff ^11(7) 
It, 3>tTj. — ^^-9 L^ii 

m*T&tzMz^ *b^i;«). 
if -9 ^ -5 ^niT'iiJf r s a^ >* 
«9T fc*^j: 1 1 nts "^ b ^ i \ tz 
^^(j;N8iXN?j:b(i'^\ 0| Jx-i- 

•y K ^ l-7 7't:'7 h^'1 t'-y 
K X0N/X0FF*'J, ->7hl/0 

c7)T\ ^^iiuizi^-rntsx^ 

l\ -<otZ^Pb^<^^T*iI 

<7) «t -9 tz -b * a, i: iilf T- # 5 ^ 

fiSC ^ I ^<7)R£5:(79 ct -9 ^ fc C7) 
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NEWS 



■afflywawftwii? 









*£ 
¥" 



~ a ><7)iiff T?-7?—izim 
Ltz*-v Yl-ff-kZWm 

u iswni& ^«^ 

(zlSI£7c(zSI<Z^5bU\, 
LTli, :tiJT; I?ttliE#<7) 

- ? y- A T3tB Z £ tfT # 6 
*HF«3T* 1 , 3007r& fcroftT i^ „ 
7 7 5 3 XiNESGO^T'T 7 




:?7-'-At ) |lSS•;S;t^T5><7)*K,^.• ? 
77S3>(7)*-y h9-^#»J 

i»^Hr"5> 37":=: fci^Afcf, 

MSX£<7)M3bUfc##c:*#Uo 
r F-l7.t°u-y h3D7.^->^;L,j 
T-(i, 3-ffl >r - 7 ;uto fc #' 2 
A(W|^7V -f 7^<T'# -Siifl^i 

o/c*-y h9 — ? • VjU^7U 
fto ^i~^$A^ MSX(7)*-y h 



.'•' 



•H 



*yh9-rt-0fcg!D&0£! 



f££ 4S28S/29B 



!• * 



#•* 



l J, *'y h r 7-+>^'7^--7 
— y-;U*-JUB $ B (J 4 £28 



xbU>t:iL-^ 



7> 'ja^HJSIifcy'*- 7** 

'jaiJ1990%ftC: v 7^=i>e 
t<nzt fU3>ta- ?£ 

fer- U t'nmmSrfttzittz b <7) 
T\ 60 > #> \'-f K7).* ^E 'J £rt 
1L #Sl(i7t7 7"r^'-<r-7 

T^-g>HDTV(g n a f£xU b^tt. 




t)<7)(Z/«f §fc*^> "9 £ 7 * -7"7n 
ZC7)$gii<7)7^lZ&-5, B^ 

ay^mwm^mm z t & ir% 

#* 3 £ HefcS^ fc <7)£% -5 ^a 



»te , rae&9ini 



^Sit^WiS 



HU7J S ;^A<ite^ti^ «-±S (z 

®"*$muz 

LT^7 h)m^:t^b^i- 



&. 




^ ft /5, 


/ 


J 


S3^^ 


V 




^^ 


^v^ 









x 


^<?^ 



1 ^*flf»>*(Z(4, %H5, 6 



Bs 29 B /Co #tI(Z(i^°V=i>7J< 



^ 


/ 


x<^ 






/ 


% 


N^4 


^ 

^ ^ 




? vfi r 


J n 






$&n 










«Jj) 




T\ — n — 










J 'J 
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mittshmmm 







ii7cSA/tf)§rA-ya:/!! 



MSXV#v><7)ft;l*-y MIT 7 
^-fe^LTl^A&b, fc 9^0-5 
TV^irllOlt^ ^%7)1 3 27 

a ^ «b , ftjt* v v (i, $i5t $ ^ 

-ft*T'<7)IH-«95c$A,£fliL 
L ^ • #35c $ A, 2 (D u h ttA,± # 

is • i%? a, is. basic7p ^7 

ATl|fi£ftTWcCOlZ*tLT,fr- 

«C«fl4*V •> >|§T5lfi i ft T I * § 
-<7)fc46> frtfy* £^£31^:1" 

>^"A77"f^U^bv ->—^r>-> 

zftli, £— ®— zZfrt^l 

£ s l*** Tit, T&l.^#&#/r 
bKCftlfc t^r>tzZti)<T£ 




y3>T-Hlfflf"t"= <J:*>L<*a, 

&*rof-t?£\ #f-$B7c^2(j 

4 "b & x-f 7. ? iz -tz-7* L fc £ 
# s Zft£T'<7>6~77><7)1 <'b 

A,<7)# # £& £j£# L T ft < Z £ 

rfp'T # £ «fc o tzfto fc £ M>— *>(* 
teo fe-fc^A* l^ST<7)ijg5c$ 
A,<B77 r -Oi'tJ3>/ , C L - h 7°P ^ 

7A^ot, *fLts|PI5£3A4= 
tttntt&tzt a*T* z> ?„ 



.htmmttZOtt 
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3 >777!ll < %7f5. 
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mMMMMW M MMMIIVMHMMMIIMMMW 



BUSINESS REPORT 175 



MSX2fr»M«Ni 










BASICE 

t'l L/foiH^BASIC*^*.* 
b\ it. h-othm^m^<r>[t, 

MSX2 + ;£tt:*rMSX-DOS2a— h 

fc> JH^BASIC(7)R0M^l^iAS 

it^(J* MSX2+Tii SCREEN 10 
~ 1 2(7) g 2$®^- K £#£ »-£ 



t^Ct, MSX-D0S2(ZOUT(i < 
#[°Hzf¥L<i#sj-fS*a 

Z(7)(i/)Sz, *>«t^i:4^|j^eij 
£LT&SL£lAfi#t„ V-—t>- 

hmftznxi^Bxmfi- h y 

•yv r HBI-J1 Jo ;H^ BASIC £jfe£ 
R0M£|*]/tLTU&<7)T\ t"T*(Z 
}#oTl^MSX2£;||:£*tj£(Z-t 

MSX-DOS2£MSX2 + (ZtJ, *ip. 



MSX- JErtMy V-K^x^-K 


/-#- 




iM^ROM 


SRAM 


A'tVsy? 


FS-A1WX 


MSX2 + 


1. 2 


* 


»"ty-77 


FS-SR021 


ij- Y ') -v v® 


1, 2 


* 


^•f'/-7 7 


FS-4600F 


MSX2 


1 


ir 


'>'tV-7 7 


FS-PWl 


7 ') > 7 © 


1 


* 


y-- 


HB-F1XDJ 


MSX2 + 


i, 2 


a 


y-- 


HBI-Jl 


#_ |. .; ..,*? 


1, 2 


* 


2$ 


PHC-77 


MSX2 


1 


* 


HALcff^pfr 


HALNOTE 


?5- h ') -y v® 


1. 2 


* 


rx + - 


MSX-Write 


* - 1> 9 y-iS 


1 


* 


rx#- 


MSX-Write II 


* - h 'J 7 x 


1. 2 


* 



sum? <rm&tfth s„ z: niai 

*^JISu— K£j£oT s 1 X^-f 
-^I^£^;tT3fc<7)Tc T'fcC 

fitt<7)T\ MSX-JE £ I vg *a3dB5 
SB? M£ii7JPT %Zt #T'# 
§<> fc£;i(£ r #j:-5(iJ:tNfcT 

tt£*T*fi&bftTl**<7>£ % fi]i;^ 
* 1 £\ *<7>MSX-JE£|*]/gL 
H£ftT^5&<b x -£(7)3: 3: Til 
tti#ti£b- h y y vSr^STf ft 
MSX-JE[*l/S = ;l^BASICJ^T- 



$£ MSX2+^MSX-DOS2&£'£ 
£■*#- h LfciH^BASICrfrtsM.* 

& l t; *)H^" ^ *$**" t *® c <d 
3 wmnimtfmT* zntzttZc 

tmnkgmi&TtLtztziz 

It *#** jfSg 1 tillf (Z t£ ©W ■$ 

Mlfe^-h^ TU < <7>T\ ttx. 

( £« 5 (5 irsw^i -^iz-g-o t^ 

&<7>tg£a<J: < ftSfrlT&A-fc'o 
^ 1 (7)*SRAM*<7»ia *<•*!* £fc^> 
TVSfc<7)(i N Ig^oTfert 
^A^S^t'J^tt^T, C<7)^ 




#MSX2 + v->>(C7-7n^- h 'J vv £ tf)JE£iM.i;#-|J + S #SBtt<7)£, 



©*-K l J^s;i#ffl^U>^c7;izyS a)^-K'jyvi^V7.^lz c fc§SfflOSc 



176 MSX2+7^-*) 



MSX2+t?-WI 



MSX-JE*K0 
VyhOT.T't.lt 

MSX-Mttztz(D1- K"7°P-tz-y 
VWIjM BASICT'tift < , l**> I ^ 
^77°'.) >r- v 3 >tmfr-&frit 

X, ^IB«<7»e £«*-•& J: 

i5^^»<7) rom % wtimm 

iWS(DX\ MSX-JE gft££ < C7) V 

7h7x77m3rt6::£ts, £ 
7 7° U *r-i > a >A«MSX-JE«: 

c7)MSX-JE£T-M&<^b-tf'bft-5> 
J:9i:^oTi^ fcfcU Si 
<7)HALNOTE(J N ^-h'J'yv^v 

*HALOS* £ l^UfflOS^f^-) «fc "9 
(ZftoTU&(7)T\ HALOSffiT'ft 

MSX<7)Sflff<7)U'^Oti % *— h 
U -y viz J: oT*^if^ffi3l 
?$«£-£• T-£k TCIzt-p-v 
h*<^JE-r%<7)T\ #fL<H-7ft 
fc MSX-JE tT-tXif %faM I tz 
MSXZ + tftitttotz'o 




m^JwmftM 







BASICcO-^-4" 
BIOSZJ — )V 
BDOSZJ — )\> 




MSX(ZFfbt\ 3>^jl— ^(7) 
?2>TtJ1 /\*-f K8t'7 h)<7MI 

46 tz (i 2 / \*-r h oo^^-^'jz^iz a 
•s, jis(H*xDet»)x*ti, w* 

J: 9 iz-^^^r 2 A-f h (7>#§-T3S 

S 3 2 1 H (£1 7k*) 

m 4 F5 3H (£1 tMI) 

=t 5 2 1 H (£2**) 

it 7 3 7 eh (mz*m) 



JE*NM)A-K&V?h 



izmmzntcMsx-jEW&(DJ\ 

^T-'A^-S'J-yv' 






FS-CMl 

FS-CM820 
HBI-1200 
VM-300 
V-3 




mm'mn 
rxAfiMMSX 
/W-V-'>^ FS-A1FM 



• *-y KZ 7 i'-tr^ + C MSX-JE «■€»! 



v±- 



V7K7I7 
V-- 
V-— 
77^- 



HB-T7 
HB-T600 . 
ML-TS8H 

tt#S»£«F3 
MSX-TERM 




#X»ftS«n<"iiiiB. z\kti.7-fv 



Ufrt* -<7)JlSzi— Kizti. H 
^ t %gft)*$. &% £ jtB&mMfc 

&T& JISP-F£P>t°J.-? 
^^ilL^-n^OtZ^^L^v 
7 MlSn- K**>\ MSX £-££;£• 
< <7)/\°— vwua > t*a— ? T«fi£ 
frtixi^ a,7c c — aBTti*-7-r ? 

u-rmz-ti-ct ->7 h jisp- rj, 
3£fc*ffl tzfF <b nfc y 7 h 7 x z 

s=t -5 (zstf-$nfcffi*ij^3i^zi 

— K MSX-D0S<7Xbf±P>;\x7* 
;UT**>*MS-D0S(16tf*y h/<V3 

—?-H >7'v^.xA)^0S-9i:l^ 

v*xAlZfc % ->7 NISi||?P — 
F*^ntl^(7)f; &&$> 
Hfc ^> 3 > t°a -^ WIT'S*? 7 

fd**;a-m£Jt,T^*£> » 
tz-r?)^ fcjblfit ¥££^<7) 



*ABCD"t^:^S:^7j*A B C D"(J, 

1 1 tz < SiJ<7)5:^ £ L xWnft* 
^•nriis ^cU^^mizas 

^* MSX2+^MSX-DOS2(7))||^ 

l#h,Tl^*o :tiii, BASIC^DOS 
tZ|5I«b-r, ^<(7)7'7°U^-V3 
>7°P ^7 A^IJfflT*# 4«t IZ 

[211 lz&5<7)£\ •i^F^'r^' 
(7)ttifFiiiio «i%-iio Titter* 

£\ S-f+-*-F^"bA7D?n 

*RjfeT«!iRtTX maizSJjT 

-T-5o ^(ZMSX-JE^of-t/tHL, t> 

■b «% £;im££:£:^) ream, 

S^tz N ^«?n^3l^c7)p-F 
*\ BASIC SfclS DOSSIL T, 7 
7U -T-: > a >7°P ^'7AC^ib 

zni:liitiz s 77°Ut- va 
>7p ^^L.-hmMzSc^^m.^ 

7 -f / N'tz^titi'i »i vb Itrc'tao 

-v a >7°p ^7 Atzi: ottt, 

BASIC(7)^^-^BI0SP— JkBDOS 
P-;U(MSX-D0S(7)7 > P^'7AA< 

AtU^^^jr^fc^xw. BlOStzf^ 
/c^he) ft erCZ, }I^AtH^«BE* < 
igin£ftfc<J: J 5lz#*.*m, ^ 
lz N T'f'Xr— va>7'P/'7A 
g JjfA<MSX-JE<7S»»«ri*f^ L ft < 
T<U^£t!)\ )H^F7-f/\'<7)7t 

Sftili^fo 



MSX2+r-^-*M 
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«*.BASICr«AS 



M SX2+(DWM^— Ftl^tzht 
£-t^J:?G % i||^BASIC(7)il®^ 

- k bimfco m 2 iztm i tw 

tftn—Wo BASICT14, "CALL 
KANJ!" ^£ SV WIDTH''<^T' 
D0S2T-(rKM0DE"^^ VN M0DE" 

CALL KANJIO:WIDTH 32 
£^7^£l^7t£^ JSHfi 
32:83= x12*t^g&5 fsjCC 
i:«rDOS2T*^-5(Z(i x 

KMODE 

MODE 32 

i:tfttfi.»u fcfc*b< 3S!§fiS<7) 

*Tb, — SBASICGfeir^TiH^: 

^ftTti, S2(7),%e^?rf$L< 
Ift^f 5 te„ S 1**11® K -y h W 

tits mmizm7F$tiz& (v-; 

K) (Difc Jjl^i C <njH<7>l£.fr-&fo 
itT'mt>£tlZ>A,tz 
11**424 Kv h(7)®®^E— KT- 

G# K-y hths-Mz 2 #c<7)I}® £ 

I^bO</;«), g^ft^T 
*&& K -y h ifc" £ (4, 1 fflggg* 
:££16x 16 K-y hT^bf(7£\ 



l^ H^BASI COHERE- 


- 


< 


lSffiK-y hft 


it^ K -y Mfc 


¥$*« 


ffcg^-;* 




i oo l • Ms x a; x a v h mn*,-*- m^ 

110 ' by nao-i on 9. Jan. 1989 

20 CLEAR : DEFINT A-Z : CLS 

130 VE = PEEKC&H2W : 'BAS1 

1 40 If VE=0 THEN PRINT "&,«M S 

150 IF VE=1 THEN PRINT "fittMS 

i z 

color auto goto list run 


256X212 


16X16 


32X12 


CALL KANJIO: WIDTH 32 


256X212 


12X16 


40X12 


CALL KANJIl: WIDTH 40 


256X424 


16X16 


32X24 


CALL KANJI2: WIDTH 32 


256X424 


12X16 


40X24 


CALL KANJI3: WIDTH 40 


• 32X12<7)iJ® c JTfri:^?!**?^. 

erm^- v '.■■•••■ :■.■■.■ 

»C*,b(J80X24 c RGB*- ;?t2 '£>?!.&<, 


512X212 


16X16 


64X12 


CALL KANJIO .WIDTH 64 


512X212 


12X16 


80X12 


CALL KANJI1: WIDTH 80 


512X424 


16X16 


64X24 


CALL KANJI2: WIDTH 64 


512X424 


12X16 


80X24 


CALL KANJI3: WIDTH 80 



«H2x«|l6 Kv MlJSjSLT, fit 
512 K-y hOHSe4GA3V9M£t 

wft zzth aj&t j t &, / \° 

££f^T*U4\ l*|/§t£tlT^-S>12 
X1 2 K-y h (75 ;1^ROMtt\ g Kfl<j 

*¥^3t^»* «, ii®g^3 n 
*¥fc:8:3tf)tfiSi:?7»o sas© 

foWtztZo 

ZZX\ V-t-DiiMLXfS^X 
(5Liv7)(4 N ^EG&afr&fci^ 

<7>l4BASICT*fiM.Sfc(7>£^3bL 
^(4. HSTGSJG 1 ftfcfflm 



£T S H®^-K(3(4, H(4t) 
3&feNnENm&$» BASICT; 
CALL KANJI1 
WIDTH 40 
SCREEN 

-h**«b 2#g<7)JI^E- KG** 
©(ito/rSJitao CZT*>±gLT 
(5LlH7)£\ *SCREEN 0*£ffi£ 
LTl*SGfcfra\b«b?\ VDP(4 
256X212 K-y h(7)*SCREEN 5"<75 
ttii:^-5Ti^z^: cc7)4 9 
*4tiK^ *;l^:r**h^-K* 
£i*7A,£ 

-(7)^— KTtt, BASIC7°P;7' 

^A<7)A7j^flf J£ JNPUT^tl 4 





CALL KANJI ^ -^ SCREEN 



CALL ANK 




SCREEN 0-1 
INPUTS 




$m?M$ft£7t%o Lfrbs LINE 
*>PAINT&£W77-f -y: 

;l^^-KT'^7 7-f -y£ 

frr-5>tc(4, "screen 5**ar<7) 

4ftr& nt w ;lf3^' 7 7 -r -y ^ 
*- K" (ctjj j; ^^ * >Sb^ifh =b 
mti a tztz\ Hti.T tSl^T IIL^ 
(7)(4, Z(7)^-KT14^7 7-r -y 
^^H^;I^(7)tB7J(4f^*(ti:\ 
ffHk LT;I^COA7j"C4T'#&^ 
ca: PQ|^fir4>T^ feLb<7)l} 
®^e- Keaij l J #^. %-El 2 n i ^ 

7°p ? 7 AWWi £■&#>* t #, 

# * i:*l4, ^^: iffc 'J M®^- K 

9o* v U*GALL KANJI" ^^4lTl^ 
Si:^ 7°p^^A^-A7jL^iS^ 
G«JEL<»<17^ -^m;!^ 
fl*jT*»^yn^7A'<rO- KL 
ifiri:»A^«i:i\ *A,t*ttd*B 

ifc, *^77-f7^*~ F 
T\ LINE^^-^: LINE INPUT^% 

*«?i:. gtdW(-;I^^+^ h 

t7 -511(4, INPUT$^INKEY$^^ 
T-+-7-C- K£f3i#>(4Vl\, 
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ISX2+T?-*Jbl 



jj^S^-fAOIEU 



lJ°ft)* 3QrV7f>xT fcfcHf* 

basici::*& £-?(}* 3 ftfcfcACv 

MSX£'J-te-y h LTrfr'btfSW- 
'CALL KANJI**frfc#H?T3ft*£ 
#C % 8*£P9-fVffcMSX-JE**!l 

?ft&o -t(73i:#HBASIC<7)^SJ[<7) 

fiLUKB^ *RETURN"^^X'^ 

10 A=1 

20 CALL KANJIO 



30 PRINT A 

tlN-)7'P^7A^HftL^^ 

£ l ) I8& A<7)<I# OC^oTl^) 
ft& 2[Ug±«2IEL< v M"# 
^$ftS£H.>-5J|#o *fcs 
10 GOSUB 80 

70 END 

80 CALL KANJIO 

90 RETURN 
(nl ■) #7n ?% A£Hff T& £ , 
*CALL KANJIO" #Hfr£ft£:£# 
(Z" v RETURN*^^-T'M-5)^^ < ^t 
bft s ^P^A^ffifT^rfctfrL 

> ^ u _t(z 7 - ? x i j 7 £$nrt 

S£, BASIC©?— ?X'JW*<7) 

P^Af, V ->>§§+>- "AiU-?- 
>^-)7°ny'7Am X*U 
WJ£ I TttsWC < 4 5 - £ fc * 

3^K7'f/\*lk 7°P^7Art 
^)'>7MSa-K*; jisp— 





# *& 


* at 


m & 


FDA4H 


H.CHPU 


m&i- 1 *^£**i-s 


FDA9H 


H.DSPC 


m—vfr'te+ufr-ti 


FDAEH 


H.ERAC 


i7-v imna- i 


FDB3H 


H.DSPF 


7t >7->s > + -£*.*1"£ 


FDB8H 


H.ERAF 


7 r > 7 -> a >* — *>** £ iK *1" S 


FDBDH 


H.TOTE 


iS®£r*Xh*- Ki:«1*ii 


FDC2H 


H.CHGE 


^r-»K— K*»6 1 Xf&faV 


FDDBH 


H.PINL 


BASIC^-xf -f ?** 1 *f £f£i; 


FDE5H 


H.INLI 


l4f&»t'■ 


FFB6H 


H.LPTO 


7° , J >?tc i *?£t < 



J»i«^(Z)A¥73^/c 



T^^-^SMSXC/msx. 
spep # <bU55K-K#?f-:?>o 

77.*-<Dm%i®t)miVzMSX(D 
£5Ctt«»€. *yS©£Jl«6 
fc'ftrtfEBftScl^lci&ofc-go 
^«>S©A=lcoi^tt, 77.4 
-*^ K*^S(O03-4B6-9661)S 

£fc* 'MSX-WritelTOIK* 

&$:ntcMsx-jE<Dmmm.®t)\ 

So "VJE-80AS*4#ii"iau 
^'JT^bT-VA'-^lBUP.OOO 



107-e4Mwll5^Ei 

r VJE-l 
003-486-7114 



'IU6-1H 




• _*ltfrmsx.spec<7)--Ti— K „ * 






(J, BASIC©*LPRINT*^£, 
BIOSC7)*LPTOUT"(Z^LT#< fc 
©fc'o LfrU 7°U>?£ 1 K-> 
hfoMLT, Cf^-y^vO^k 

(*Mftffi«<tB*b *-*C ^ h 

-fV-vEP^©8iilitJ, v^xA 
7 — ;7X rj ^©^©FAISHSife 
(RAWPRT£I&$) I- "C$l>tt$ 

*£&A/t\ ii^3— F0ja«* 

□ ^77- fa](t<7)^«7)o 1*1 

t1*x *3(C«ttLfc<7)A<, 31 



— Ko l5^(7)7°P^7A*<cn'b 
7 -f / N**1S L < WlfrK l ^ nrffitfe!)* 

^C> 7-y^^bO^-^P 
•y h 3 -;uT-;i^ K y^'-tiM-U 

I X J Y U v X ? C7) ft :^r $£±i £ ft -5 

^>BI0SHOl^ s Cftb(7)Uv7. 
^ <7)rt§AM»# ? ft 3 £ #* Tf^ 
bft/c7°P^^A(J N ;S^^-K 

t, i^tz?>T\ 4m©^7 

=*iM»MWtt*«L*i\ nielli, 
5n 'J^ft^A^tH(7)MSX-DOS2^ 
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MSXA'-C 




BASICCD^P^5A^ft/u<h, 

r MSXA:-uog/3?6"rjo #m 

«, MSX2+siiBc«:-3rsssi*nfc«^*ar 



IPK& basics >?7°'j?£ 

BASIC0>7n ?=? A*<MSX^— L 
-3 ^ b T &# ? t W> JlT'Ufi 1 3 

SnTL^BASIC7°n^^A?-|| 

ft? •& tzOxnsmt JiUteVu,, 

MSX{*-(7)-f >^yj^tl^S» 

&Lfc#'byci?7A£i!fjr-5 

7(£ BASICT#^^/-7°P^7A 

got-* i% msh-^tc £ c/ic 



£?£ <3&taflM.fc x ^Tfcfr 
LCV>-fr v y#0>£f o 

AX^->-rig(i7+(cLT, $ 

#Wcb, MSX^—Lnm&bt 

S?\ -<— L-^<7)2j— r- U >;/ 
v£7.P-y Mz^L;&A,T\ *te 

T'(2&1\ ivafefcric, BASIC 

(nM.KtitzmvBtfm % tztfko 

KUCJ^h 1 C7)7°P^*7A$- 
m>iAA,T*<*T(5Ll\ *T*>iM. 
ttMfc? ¥fti;*RUN3-t*-T# 

=fc -5 ®Slz =7 > ?A ^iS|^<! I 
ItStJ-f/c'o T\ 4"/ftJ, CALL 




LT<fto t'iii^ $->££(& 
l>* fcf- KT*Si^$ tlfcTL «t o 

31Z12, CALL RUN£-ftU£l^ 

c £ #&&*, ttiT'izms. fen 
7°P^*7A(ZU^ h 2oyp^7 

A^iiiQLT^iOo JT*)^** 
3T7Lfcb, &(7>fc«> x RUN $ it 
T<frS -5 A, Witi^j: <»<«!: 

fa„ T*te, CALL RUN£LT-frJ: 
")o $>U*>M*\ Syntax Error in 
20C#oTL£^fcJ^ o ZtHt s 
^- L 3 ^C75 "7° P ^ 7 ACO# $ Jj 

[:i'j*%^i:i^:io CO(J, 



LUM 



100 SCREEN 8 

110 X=RND<1)*256 

120 Y=RND<1)*212 

130 C=RND<1)*256 

140 LINE-<X ,Y) ,C 

150 IF INKEY*="" THEN 110 

160 END 



UXS2 



10 SCREEN 8 

20 OPEN "grp:" FOR OUTPUT AS #1 

30 PRESET < 0,0 ) : COLOR 255 

40 PRINT #l, , 'tzti *- 1 *=/r*" 

50 IF INKEY*="" THEN 50 



U7.K3 



10 SCREEN 8 

20 OPEN "grp:" FOR OUTPUT AS #1 

30 PRESET (0,0) : COLOR 255 

40 PRINT #1,"+Z^ *•- =5 *£/***" 

50 IF INKEY*="" THEN 50 

100 _TURBO ON 

110 X=RNDQ)*256 

120 Y=RND<1>*212 

130 C=RND<1)*256 

140 LINE-(X,Y) ,C 

150 IF INKEY*="" THEN 110 

160 END 



^-^37A#fS) 8 

7"a^7A^^t5Ci:^T'l 
&t >;&" £ V> 7 . £ N %— -Ctt^ l \ 
■J* h3 <7)«t -5 (Z7°P #7 A (7)100 
^r£_TURBO ON £ L «fc (T> 
^-7-fXt CALLc7)ftffl) * 
LT % RUNf*£(_RUNi;*&^ 
«£K 50firf Tti, .SO -5 CO BASIC 
ft7p:??A£ LTftfrdtU 100 

P^*vA4'lZ_TURB0 0Ni:l^9 

^^r&S^ ^-tiluK(7)7°p^ 
7 a ^/<— l -o^n v -> >iiiz^ 

WlVXKilZGJt*. 

m~s yp^'^A^T^-Lo 

^V\fci^#tt TURBO OFF 

£TM£^\ 
ZA,teZ £ *<T'# -5 BASICP > 

^'-(71^- L-7^<'bl^c7)fc^ 

*f%*). .iO-3^ BASICT'7°P^' 
7A£irA,vX N ^<(Z^I$?-^^ 
$n*SP7>^(1- TURBO ONT'Aq 

m?hi&wr>xt>itteo73&)% 

^LT(i_TURB0 ONt TURBO 

OFFtJvjU^*-^- h > > MbA< 

(z, (5^x7)^^- ^:— iSt(z#< ci: 
(iT'^^i^TCi: Cbi^Ki'o 
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msxa;-io 




OPP-p 



CIRCLE 

CIRCLE(2R£*f < ffr&XA,t?l1 

COPY 

*>(ZPb°— T-S^po /±'U ^ 
-Lr>tTU H®-b7)=ifc:-L 

DEFDBL 

f£WT\ MLTMMft££& 

(DEFSNG)£ LT|&bft*>*-7o 
DIM 

-f3t^rfc ^-LotTIi DIM 



INPUT 

MSX-BASICT-ti 1 ^(ZfSjfST'fc, 
7*-^X2jA*"e#£l7^ ^-L 

KEY 

MSX-BASICHU, KEY£l^*fr 

LOCATE 

^- L rj^T'tts 'J&t\ X £ Y (7) 
TO £}t£ L tt ( i tl&% b fc t \ 



">C-UoS56TjrKftUW 



MSX-BASIC 



AUTO 


BASE 


BLOAD 


BSAVE 


CALL 


CDBL 


CINT 


CLEAR 


CLOAD 


CLOAD? 


CLOSE 


CONT 


CSAVE 


CSNG 


DEFFN 


DELETE 


DRAW 


EOF 


ERASE 


ERL 


ERR 


ERROR 


FRE 


GET 


INPUT# 


KEY LIST 


LINE INPUT# 


LIST 


LLIST 


LOAD 


LPRINT USING 


MAXFILES 


MERGE 


MOTOR 


NEW 


ON ERROR GOTO 


ON STOP GOSUB 


OPEN 


PLAY 


PRINT# 


PRINT# USING 


PRINT USING 


PUT KANJI 


RENUM 


RESUME 


SAVE 


SPC 


TAB 


TRON 


TROFF 


WIDTH 


MSX-DISK BASIC 


CVD 


CVI 


CVS 


DSKF 


FIELD 


FILES 


EPOS 


KILL 


LFILES 


LOC 


LOF 


LSET 


MKD$ 


MKI$ 


MKS$ 


NAME 


RSET 





EQV 



mmimn* 



IMP 



i® 



NEXT 

£— L -oMX'it NEXT (P>fo t <n$L 

PRINT 

fffit&lt&s MSX-BASIC^, ^ 
-Lr>m^lts £G<7)&#7jASt 
1 <7)£f 
RUN 

7°P ify i&BRt&tfatU 
MSX-BASIC<7)%£; RUNT*£* 

T-<x<n%mmmitztiz>ttt\ 

$ tlt£\.\ 7°P 7=7 A(7)**JJH3E 
SCREEN 

-fy^aait^ s<-Lr>mx 

tt> WIPE— YtX'ffj h^-f 
X<7>895£L*rT*3fcl\, 



SET 

fiMs^P%«> SET PAGE £ SET 

SCROLLC7)^^Of-*(to 

STOP 

^-LoSTU END^£|5]i; 
KSfcbftSo "?£U, ^*>*r+Wr 
Lfc^ CONTt^TWft-S>c£ 

USR 

v -> >fg<7)./u— - ?- > $-^^T -5 

<7>§|&«1sM.fcl\, 
VARPTR 
S!i[<7)filA < AoTl^^ ; E l J7' 

— JU7*P'y^<7)Mt&^ KU^5r* 

^UT'KU^LA^cAbti/j.'^c 



K-uog^e^/fiTO^ 






■ ■■ ■ »■ ■>■ ■»■ ■»■ •♦■ !» ■ ■■■ ■•■ ■•■ '«»» ' 

CALL RUN 

CALL TURBO ON 

7°P?*7A4 3 T\ C0>^A* 
&5£* ZtifelR<?)^a^7A 



'#C + 

msx- basics is] l;< \mrnt. 

mz 21 2UUL<7)»(i!£^ LT fc 
T^"C ZIIZLXf&btiZnX- 



£^-L-?3miv •>>§§{;» >±| 



CALL TURBO OFF 

C <7)t^WK«ii«(7) BASIC 

7*a^7A£LTil*TT*o 

•#l 

BASIC<7)DATA5:(7)J: -)IC N '#I 

*HC- 

MSX<7)?-7 7-i"y?R5<7)Y 
MI(iO~21l3:T7::l7£\ ~<7> 
^fcfcofcs 0~255ST-C7)Y 

jmxmm<~ttfX'£zjL 



'#N- 

FOR~ NEXT<7);u— 7*Tv *5 > 

<7)7>iiS(zt(jA^-rc:i:^T-# 

C(7)^:— K(z4"oTi^ 
*#N + 

MSX-BASICi:|W|i;</^^ — 
9 3SBP75* -/\'-7Q-f-i7 



jf— y\'— 7P— T^^:, 
-7°(zAoTLS-9Ci:fcA-& 

<7)X\ **&*-*■$&&&*— /N " 



MSX-~<-Loa.i-'b-r 181 



MSXA;-Uo&3i 






LTUfco <fc»Jtzj:oTS*H3fc 
& < *C I) ^ aHt ? $ *&£«<. $k 







Tfe£lS<*ft*:fl$;** D-X4K 
f^o^y-A(z^itLT^J: 7 £ 

a— r--f >7f— M3.XZ— K# 

fo, ^-L^t^f^ll BASIC 
T"#Wc7°P ?*7 AT*i5?lc7)7'? 
if a >y— A-^vzl— x-r >^V 

U* h£Jt,Tfeb*J2; ;b*r£ 

^ *? u . ;^yp^7Am 4$ 

s s T'fc, Msx2+T*raHfc < m s 
tz\ttfa*t** a fc*fu fcff>f 
--< t. tr- kasi< Tf-Ai:^ 

b#tv{t£*fco 

^-Lct-^o BASICT'ti, 7°P?7A 




— L o^li v •> >f§<7)7° □ ?*7 A 

ic^«-r**3(tfc**^, feu 7° 
mm(M%&imM l t l g -5 &*> 

«- L o3g£*5Ert3i!ul-7 n ? 
^AfcrV Z^Cfe— 7LT|5L> 
fc«")AWl£l>-)t>A,fcf„ 
"PtoT, 7°P?'7A£-tz— 7' 

^ £ * -f tf-'v 'J AtIAT-1 * < 

#g#f ! flfe-LE * -2> Si££'J*$ L 
X^<(7)tz fltf—^Jlt— ^ 

1*<<7>T\ Xife£'J§$?L, l»& 



,SO -5 C BASICT'RUN $ i*fc £ 

-pt s BASICS Slt-Wd^ 

■9- > 3 — <7)WAVY70FDH|*]/ll£ ft 
Tl** BASIC P>/\°-rv(i^^WlZ 

fc* Ulu ( '88^ 11 8 ■§■) TJJ&fr L fc , 

> hP— Jl/T5MSXHfc N *«— L 
-3SA < £*te*rCVfcta y-A 

l\, r +$fc^-Lo^Ty-A^ 
fFo/-cb, va-hT/P^AZ 
•f7> K(C/^3)ELT*)J:-9/^l^ ! j 

tmmh%Lxmn? '*** 



«ED^T*i— ^\U LIST 



1000 ON KEY BOSUfi 1050 iKEY ( J ) ON 

1010 SCREEN 5,2::G0SUB 1940 

1020 COLOR 15,4,4 :CLS 

1 030 i. I NE ( , 1 50 ) - ( 255 , 2 1 :l ) ,3 2 , BF 

1040 GOTO 1060 

1050 SCREEN 0- COLOR 15, 4, 7: END 

1060 REM 

1070 X^0;Z=0:SX=50:SY=70:FL=8:GQSUB 1820 

1 080 SETSCROLL X , , 1 , : GOSLIB 1 5 1. 

1 090 PUTSPR I TE , ( S X , S Y ) , 8 , 

1 1 00 X = X +2 : Z = Z +2 : GOSUB 1210; GOSUB 1140: BOS 

UB 1630: GOSUB 1580 

1110 IF Z=8 THEN GOSUB 1360:Z=0 ELSE GOSUB 
1340 

1120 IF X=256 THEN X=0 :FL=FL-1 : GOSUB 1310 
1130 GOTO 1080 



1140 REM 

1150 DX=SX+X+8:IF DX>255 THEN DX^DX-256 

1160 DY=SY+12 

1170 K=POINT(DX ,DY) :IF K=7 OR K=12 THEM 11 

80 ELSE RETURN 

1180 PUT SPRITE 1 , (SX,SY) ,9,1 :PUT SPRITE 

, ( S X „ S Y ) ,0,0: FL"=FL-2 : GOSUB 1 320 

11.90 FOR J=0 TO 2: BEEP: GOSUB 1340: NEXT J:S 

Y=50:SX=50 

1200 PUT SPRITE 1 , (SX,SY) ,0,31 :PUT SPRITE 

, t S X „ S Y ) , 8 „ : RE T URN 

1210 REM 

1 220 S=ST I CK ( ) : I F 3=0 THEN S=ST I CK ( 1 ) 

1230 IF S=0 THEN RETURN 

1240 ON S GOSUB 1260.1270,1280,1290,1300,1 

310,1320,1330 
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msxa; 



;-loi® 



1240 DN S BOSUB 1260,1270,1280,1290,1300,1. 

310,1320,1330 

1250 RETURN 

1260 SY=SY~4:IF SY< 30 THEN SY = 30:RETURM 

ELSE RETURN 

1270 BOSUB 1260: BOSUB 1280: RETURN 

1280 SX=SX+4:IF SX>180 THEN SX= 1 80 : RETURN 

ELSE RETURN 

1290 BOSUB 1280: BOSUB 1300: RETURN 

1300 SY=SY+4:RETURN 

1310 BOSUB 1300: BOSUB 1320: RETURN 

1320 SX=SX-4:IF SX< 30 THEN SX= 30: RETURN 

ELSE RETURN 

1330 BOSUB 1320: BOSUB 1260: RETURN 

1340 REM 

1350 FOR 1=0 TO 12:0=0+1 :NEXT I :RETURN 

1360 REM 

1370 LINE <X,30)-(X+7,148) ,4,BF 

1380 A=INT(RND(1)*10) :IF A>2 THEN A=0:BOTO 

1430 

1390 IF X>245 THEN RETURN 

1400 A=INT(RND<1>* 5+1) 

1410 LINE (X ,148)-(X+7,14S-A*8) , 7,BF 

1420 LINE (X,148)-(X+7,14B-A*8) ,15,B:B0T0 
1430 

1430 REM 

1440 B=INT(RND(1)*16) :IF B<>2 THEN RETURN 

1450 IF Z0>0 THEN 1480 

1460 Z0=1 :Z1=258:Z2=148-A*8-16 

1470 PUT SPRITE 5 , ( Zl ,Z2) ,8 ,4 :RETURN 

1480 IF Z4>0 THEN RETURN 

1490 Z4=l : Z 5=258 :Z6=148--A*8- 16 

1500 PUT SPRITE 6, (Z5,Z6) ,8,4:RETURN 

1510 REM 

1520 IF Z0=0 THEN BOSUB 1340:SOTO 1550 

1530 Z1 = Z1-2:IF ZK0 THEN Z 0=0: PUT SPRITE 
5, (0,0) ,0,0:BOTO 1550 

1540 PUTSPRITE 5 , ( Z 1 , Z2) ,8 ,4 

1550 IF Z4=0 THEN BOSUB 1340:RETURN 

1560 Z5=Z5--2:IF Z5<0 THEN Z4=0:PUT SPRITE 
6, (0,0) ,0,0:RETURN 

1570 PUTSPRITE 6 , ( Z5 , Z6) ,8 ,4 : RETURN 

1580 REM 

1590 T=STRIB(0> OR STRIB(1):IF T=0 THEN RE 
TURN 

1600 IF T0O0 THEN RETURN 

1610 T0=1 :T1=SX+8:T2=SY + 16:T3=0 

1620 PUT. SPRITE 4 , (Tl ,72) ,9 ,2 : RETURN 

1630 REM 

1640 IF T0=0 THEN RETURN 

1650 IF T0>9 THEN 1770 

1660 T4=INT(T3*T3/36)+l AND 15 :T1=T1 + 1 :T3= 
T3+1:IF T4>8 THEN T4=8 

1670 T2=T2+T4:IF T2>145 THEN T2=145 :T0=10 : 

SOTO 1750 

1680 DX=T1+X+1:IF DX>255 THEN DX=DX-256 

1690 REM 

1700 U0=T1+ 4-Zl:Ul=Tl+ 4-Z5 :U2=T2-Z2 :U3=T 
2-Z6 

1710 IF Z0=1 THEN IF (U0< 9 AND LI0>0) AND 
(U2<8 AND U2>0) THEN T0=10 : Z0=0 :FL=FL+1 :PU 
TSPRITE 5, (0,0) ,0,0:BO3UB 1820:BOTO 1750 

1720 IF 14-1 THEN IF (UK 9 AND U1>0) AND 
(U3<8 AND U3>0) THEN T0=10 :Z4=0 :FL=FL+1 :PU 
TSPRITE 6, (0,0) ,0,0: BOSUB 1820:BOTO 1750 

1730 A=POINT (DX+0.T2+2) :IF A=7 THEN T0=10 



:BOTO 1750 

1740 A=POINT (DX+2,T2+2) :IF A=7 THEN T0=10 

1750 PUT SPRITE 4 , (Tl ,T2) ,9 ,2 : IF T0=10 THE 

N 1770 

1760 RETURN 

1770 REM 

1 780 PUT SPR I TE 4 , ( T 1 -6 , T2-6 ) , 6 , 3 : T0* T0+ 1 : 

Tl=Tl-2 

1790 IF T0=20 THEN T0=0:PUT SPRITE 4 ,,(0,0.) 

,0,0 

1800 RETURN 

1810 REM 

1820 IF FL<0 THEN FL=0:SOTO 1900 

1830 IF FL>8 THEN FL=8 

1840 FF=FL:FOR 1=0 TO 7 

1850 CC=11:IF FF=0 THEN CC=0 

I860 PUT SPRITE 10+1 , (50+1*8 , 180) ,CC ,5 

1870 IF FF>0 THEN FF=FF-1 

1880 NEXT I : RETURN 

1890 REM 

1900 PUT SPRITE 0, (SX,SY) ,8,3:S0SUB 1340:S 

Y=SYh-1:IF SY>150 THEN 1910 ELSE 190© 

1910 C0L0R=(4,I ,0,0) :I = I + 1 :IF I >6 THEN 1=0 

1920 IF STRIB(0)=0 AND STR1B(1)=0 THEN SOT 

1910 

1930 COLOR=<4,0,0,6) :BOTO 1000 

1940 REM 

1950 RESTORE 2040: FOR J=0 TO 5 

I960 A*="" :B*="" 

1970 FOR 1=0 TO 15:READ P*:READ Q* 

1 980 C*=CHR* ( V AL ( " S<H " +P* ) ) : D*=CHR* ( VAL ( " W 

"+Q:S) ) 

1990 A*=A*+C*:B*=B*+D* 

2000 NEXT I 

2010 E*=A$+B*:SPRITE*(J)=E$:NEXT .3 

2020 RETURN 

2030 REM 

2040 DATA 00,00,00,00 ,00,00 ,07, FF 

2050 DATA 00, 60, A0, 60, 40, 98, A0, 84 

2060 DATA 3F,C3,1F,FF,0F,FC,07,FF 

2070 DATA 00, 90, 04, 92, 03, FC, 00, 00 

2080 REM 1 

2090 DATA 20,00,25,00,30,00,28,00 

2100 DATA 24,00,22,00,02,00,0F,C0 

2110 DATA 02,40,04,40,00,80,01,22 

2120 DATA 00,12,00,04,00,08,00,70 

2130 REM 2 

2140 DATA 40, 00, F8, 00, F8, 00, 40, 00 

2 1 50 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
2160 DATA 00,00,00,00,00,00,00,00 
2170 DATA 00,00,00,00,00,00,00,00 

2180 REM 3 

2190 DATA 04,00,02,10,21,00,11,21 
2200 DATA 0D,26,03,D8,03,E0,JZiF,C0 
2210 DATA 33, FC, CI ,02,02,21 ,04,20 
2220 DATA 18,20,20,10,00,08,00,04 
2230 REM 4 

2240 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
2250 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 

2260 DATA 00 ,00 ,3C ,00 ,7E ,00 ,66 ,00 
2270 DATA DB ,00 ,,C3 ,00 ,DB ,00 ,FF ,00 
2280 REM 5 

2290 DATA FC ,00 ,FC ,00 ,FC ,00 ,FC ,00 
2300 DATA FC , 00 , FC , 00 , FC , 00 , FC , 00 

2310 DATA 00,00,00,00,00,00,00,00 
2320 DATA 00,00,00,00,00,00,00,00 
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SHORT PROGRAM ISLAND 



i/a-S-T'n^A-y-f^VH 



>K • U7 h3-t- T*To *ft 
-=ftt<7)7°n ^'7 A(7)'£^RAM^fi 

T<tz£i\ 



&fc\ Z Z izmmzntz y°a f 
«fc im&TZJ: i C LT < fe'3 i\ 



■H*^h-LIST 

100 DEFINT A-Z:SCREEN 1,2:WIDTH 30 

1 1 COLOR 15,4: G0SUB8 1 : VPOKE?<H20 1 A , &H64 

120 VPOKE ?<H2016,?<H74:VPOKE &H2017 ,S<HA4 

130 VPOKE 8<H2018,8<HA4:VPOKE ?<H2019 ,8<H84 

140 FOR 1=264 TO 727 

150 P=VPEEK(I) OR VPEEK<I)¥2 OR VPEEK ( I ) 

¥4 

160 VPOKE I,P MOD 256: NEXT 

170 B*=CHR* (31 ) +CHR* (29) +CHR* (29) 

180 G(0)=2:G(1)=0:G(3)=1 :G(4)=3 

190 REM ••••••• STAGE 

200 CLS:FOR 1=2 TO 21 

210 LOCATE 0,I:PRINT "-f" ;SPC (28) ; "f " :NEX 

T 

220 LOCATE 0, 1 :PRINT "0" ; STRING* (28 , "7" 

) ;"•}"; 

230 LOCATE 0,22:PRINT "0" ;STRING$ (28 , "7" 

) ;"•>"; 

240 FOR 1=0 TO 6 

250 X=RND ( 1 ) #20+5 : Y=RND ( 1 ) *15+5 

260 LOCATE X,Y:PRINT "*•" :NEXT 

270 FOR 1=0 TO 4 

280 X=RND ( 1 ) »20+5 : Y=RND ( 1 ) * 1 5+5 

290 LOCATE X,Y:PRINT V" -.NEXT 

300 FOR 1=0 TO 2 

310 X=RND ( 1 ) *20+5 : Y=RND ( 1 ) *15+5 

320 LOCATE X,Y:PRINT "L" :NEXT 

330 LOCATE 3,3:PRINT "I* ,, +B$+"JJ*" 

340 PUT SPRITE 1 , (224 , 144) , 15 ,5 

350 VX=-1 :VY=0:X=26:Y = 18:P*="7" :SC=0 

360 SP=0:FR=15:CR=1 

370 GOSUB 5B0 

380 REM ••••*•• MAIN 

390 K=STICK<0) 

400 IF K=0 AND P$ <>'"}" THEN 440 

410 VX=(K=7)-(K=3) :VY=(K=1)-(K=5) 

420 IF VX=0 AND VY=0 THEN VX=CX:VY=CY 

430 IF CXOVX THEN P*="0" ELSE IF VX THE 

N p$="7" ELSE IF VY THEN P$="-V" 

440 LOCATE X,Y:PRINT P* 

450 X=X+VX:Y=Y+VY:CX=VX:CY=VY 

460 IF X=4 AND Y=5 THEN SC=SC+50 : GOSUB 5 

60 

470 IF X=26 AND Y=19 THEN 640 

480 V=VPEEK(S<H1801+X+Y»32) 

490 IF V=193 THEN BEEP :SC=SC+10*2'"A1 :A1 = 

Al + 1 :A2=0:A3=0:FR=FR-1 :GOTO 530 

500 IF V=201 THEN BEEP :SC=SC+20*2"A2 :A1= 

:A2=A2+1 :A3=0 :FR=FR-1 :GOTO 530 

510 IF V=209 THEN BEEP :SC=SC+30*2 S A2 :A1= 



0:A2=0:A3=A3+1 :FR=FR-1 :GOTO 530 

520 IF V<>32 THEN CR=0:GOTO 710 

530 PUT SPRITE , ( X*8+4 , Y*8-8) , 10 ,G (2+VX 

+VY*2) 

540 LOCATE ,0 :PRINT"SCORE ";SC:SP=SP+1 

550 GOTO 380 

560 REM •••••>• HALF TIME. 

570 LOCATE 4,5:PRINT "0" :X=3 :VX=0 :VY = 1 :P 

$=».<» 

580 REM ll l t ll t WAIT 

590 PUT SPRITE , <X*8+4 , Y*8-8> , 10 ,G (2+VX 

+VY*2) 

600 LOCATE 18,0:PRINT "PUSH <SPC>!" 

610 IF STRIG(0)=0 THEN 610 

620 LOCATE 18,0:PRINT "START !! " 

630 RETURN 

640 REM ••••••• CLEAR! 

650 LOCATE 26,19:PRINT "0" 

660 FOR 1=0 TO 4 

670 LOCATE 3, 3: PR I NT "I^"+B*+"^" 

680 FOR J=0 TO 199:NEXT 

690 LOCATE 3,3:PRINT "T3"+B*+"^" 

700 FOR J=0 TO 199:NEXT J, I 

710 LOCATE 0,0:PRINT "HIGH SCORE :" ;HS ;SP 

C(13) ; 

720 SC=SC+SP*5-300* ( FR=0 ) + 1 00*CR 

730 LOCATE 6,9:PRINT "STEP SCORE 



740 LOCATE 6,10:PRINT "GET FRUITS 

5-FR 

750 LOCATE 6,11:PRINT " 



;SP 

";l 



760 FOR 1=0 TO SC STEP 5 

770 LOCATE 6 , 12 : PR I NT" TOTAL SCORE : ";I 

780 BEEP:NEXT 

790 IF HS<SC THEN LOCATE 8,14:PRINT "HIG 

H SCORE! ! " :HS=SC 

800 GOSUB 580:GOTO 190 

810 REM >•• » •• CHARACTER 

820 READ C*,D*:IF C*="END" THEN 860 

830 FOR 1=0 TO 7:A=ASC(Cf)*8+I 

840 VPOKE A,VAL("?<H"+MID*(D*,I*2+1 ,2) ) 

850 NEXT:GOTO 820 

860 READ C:IF C=5963 THEN RETURN 

870 S*="":FOR K=0 TO 1 :READ D* 

880 FOR 1=0 TO 15 

890 S*=S*+CHR* ( V AL ( " ?<H " +M I D* ( D* , I *2+ 1,2) 

) ) 

900 NEXT I ,K:SPRITE*(C)=S*:GOTO 860 

910 DATA 7,000000FFFF000000,-f, 1818181818 

181818,0,181 83CFFFF3C 1818 

920 DATA I,1F3060C0858A88C8,^,F80C060351 

B11113,fi,68243F3F203FlF18 

930 DATA T,1624FC04FC0CF818,T,1F3F7FFAF5 

F7F7F7 ,3 ,F8FCFEAF4FEFEFEF 

940 DATA ?,773F003F203FlF18,i/,EEFC0004FC 

0CF818 ,* ,0608367F7F7F7F36 

950 DATA y,0008347A7C7C7C78,A,0E0B3E7F7F 

7F7F3E,END, 

960 DATA 0,EEAAAAEE44642C283F7FFDF30FFFF 

F63 , 000000000000000000E0F8FCFEFFFF9E 

970 DATA 1 , 00000000000000000007 1F3F7FFFF 

F79 , 77555577222634 1 4FCFEBFCFF0FFFFC6 

980 DATA 2,0E0E0E0E04041F3F7F7F7F7F3F1F0 

30 1 , 707070702020F8FCFEFEFEFEFCF8C080 

990 DATA 3,001C14151D0B0F1F3F7F6F77787F3 

F0F , 003828 A8B8D0F0F8FCFEF6EE 1 EFEFCF0 

1000 DATA 5,010100C3E73F1F0F0F1F3FE7C300 

1 1 , FF0 1 39E5E5F5E5E5E5E5F5E5E5390 1 FF 

1010 DATA 5963,, 
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SHORT PROGRAM ISLAND 



:*j>2j>LIST 



100 DEFINT A-Z:SCREEN 1,2:WIDTH 30 

lliZl COLOR 2,4:G0SL)B 700 

1 20 VPOKE ?<H20 1 6 , &HD4 : VPOKE ?<H20 1 7 , 8<H94 

130 VPOKE 8<H2018,8<H34:VPOKE 8<H2019 ,8<HA4 

140 FOR I=8<H2005 TO &H200B : VPOKE I,8<H1F: 

NEXT 

150 ON KEY GOSUB , , , ,680 :KEY (5) ON 

160 B*=CHR* (31 ) +CHR* (29) +CHR* (29) 

170 CH*<0)=" "+B*+" " :CH*(1)=V.V'+B*+" 

180 CH* < 2 ) = " 74 " +B*+ " r>X " : CH* ( 3 ) = "TD " +B*+ " 

*fV" 

190 CH$ (4) ='•*"> "+B$+"*' 'J" 

200 CAN=0 

210 REM •••*••• STAGE 

220 IF GF THEN GF=0:GOTO 260 

230 FOR 1=0 TO 7: RE AD D* 

240 D*<I)=LEFT*(D*+"00000000" ,8) :NEXT 

250 READ SX,SY:IF SX<0 THEN SCREEN 0:COL 

OR 15, 1 SEND 

260 CLSrFOR 1=0 TO 15:L0CATE 0,1 

270 PRINT CH*(1> ;SPC(16) ;CH*<1) :NEXT 

280 FOR 1=0 TO 16 STEP 2 

290 LOCATE I,16:PRINT CH*(1):NEXT 

300 FOR 1=0 TO 7:F0R J=l TO 8 

310 P=VAL(MID*(D*(I) ,J,1> ) 

320 IF P=2 THEN CAN=CAN+1 

330 LOCATE J*2 , 1*2 sPRINT CH* (P) :NEXTJ , I 

340 X=SX:Y=SY :GOTO 470 

350 REM •••••*• PUZZLE! 

360 IF STICK (0)*K THEN 360 

370 K=STICK(0) :IF K=0 THEN 370 

380 VX=(K=7)-(K=3) : VY= (K=l ) - (K=5) 

390 V1=VPEEK(8<H17E1 + X*2+Y*64) 

400 V3=VPEEK <8<H1801 + X*2+Y*64) 

410 V2=VPEEK(8<H1B41+X*2+Y*64) 

420 IF VY=-1 AND (Vl=193 OR (Vl=32 AND V 

3=193)) THEN Y=Y+VY :GOTO 470 

430 IF VY = 1 AND (V2=32 OR V2=193) THEN 

Y=Y+VY:GOTO 470 

440 V=VPEEK(8<H1801 + (X+VX>*2+Y*64) 

450 IF V<>32 AND V<>193 THEN GOSUB 520 

460 X=X+VX 

470 PUT SPRITE , ( X*16+8 , Y*16) , 15 ,0 

480 V=VPEEK(8/H1841+X*2+Y*64) 

490 R=VFEEK(8<H1801+X*2+Y*64> 

500 IF V=32 AND RO-193 THEN Y = Y + 1:BEEP:G 

OTO 470 

510 GOTO 350 

520 REM •— — PUSH ! 

530 IF V=201 THEN VX=0:RETURN 

540 R=VPEEK(8<H1801+(X+VX*2)*2+Y*64> 

550 IF R<>32 THEN VX=0: RETURN 

560 LOCATE ( X+VX ) *2 , Y*2 :PRINT CH*<0) 

570 M=Y:IF V=177 THEN P=2 ELSE P=3 

580 LOCATE <X+VX*2) *2 ,M*2 sPRINT CH*(P) 

590 BEEP: IF CAN=0 THEN 650 

600 R=VPEEK (2<H1841+ (X+VX*2) *2+M*64) 

610 IF R=201 OR R=193 OR (P=2 AND R<>32) 

THEN RETURN 
620 LOCATE ( X+VX*2) *2 ,M*2 :PRINT CH*(0) 
630 IF P=3 AND R-177 THEN CAN=CAN-1 
640 M=M+1 :GOTO 580 
650 REM •••••*• CLEAR ! ! 
660 LOCATE 5, 8: PR I NT "_CLEAN_UP_" 
670 IF STRIG(0)=0 THEN 670 ELSE 200 
680 LOCATE 5. 8: PR I NT " GIVE UP " . 



690 GF=1:IF STRIG(0)=0 THEN 690 ELSE RET 
URN 200 

700 REM •••••»« CHARACTER 
710 READ C*,D*!lF C*="END" THEN 750 
720 FOR 1=0 TO 7:A=ASC(C*)*8+I 
730 VPOKE A , V AL ( " fcH " +M I D* ( D* , I *2+ 1,2)) 
740 NEXT:GOTO 710 

750 READ C:IF C=5963 THEN RETURN 
760 S*=" " :FOR K=0 TO 1 :READ D* 
770 FOR 1=0 TO 15 

780 S*=S*+CHR* (VAL( "2<H"+M ID* <D*, 1*2+1 ,2) 
>> 

790 NEXT I ,K:SPRITE*(C)=S*:GOTO 750 
800 DATA 7,000F3040704F4070,-i ,00F03C720E 
F2067E ,0 ,6041437F7F40300F 

810 DATA I,FEFAF2E2C2020CF0,T,03070F1F1F 
332D5F ,H ,0080C0C0E0E0D898 

820 DATA ?,5F5FBFBFFEFEFF7F,i/,BC3E7E7E7E 
FCFCF8 ,* ,707F7F70707F7F70 

830 DATA M ;,0EFEFE0E0EFEFE0E,,> ,FBFBF8FDFD 
1D1D1D ,'A ,DFDF1FBFBFB8B8B8 ,END , 
840 DATA 0,020D9979003F3E3E1F07010F03030 
B06,D0CCCEE600FEBEBEFCF0C0F0ECE0E038 
850 DATA 5963 
860 REM •••##•• STAGE DATA 

870 DATA 0003,4111,4,111402,000411,002,0 
1140111 ,10011 ,3,2 

880 DATA 0002003,01110114,00001404,10030 
014,01443,001111 ,33300011 ,111 ,3,0 
890 DATA 002044,00400034,40044444,440044 
04,40040404,4040003,40004111 ,11111 ,3,4 
900 DATA 0020302,4110141,4000001,1411143 
,0400041 ,040034 , 1 1301 1 ,001 1001 1 ,2,0 
910 DATA 0004444,00303034,00111114,00020 
004 ,00044104 ,4100004 ,4000004 ,11111111,8, 
6 

920 DATA 0200303,4100114,44000304,400034 
14,40111004,44000034,11400211 ,001111 ,6.0 
930 DATA 1,2,3,4,5,6,7,8,-1,0 



AP^^-LIST 



100 DEFINTA-Z :DEFSNGW ,V :C0L0R15 ,0 ,0 :SCRE 
EN2 ,2 :OPEN"GRP : "AS#1 :A=14336 :LINE (223 ,10 
0) -(231 ,191 ) ,2 ,BF :FORI=0TO249STEP249 :LIN 
E(I ,0)-(I+6,191) ,2,BF:LINE(231 ,170) -(249 
,191) ,7,BF:NEXT:X=50:Y = 160 

110 FOR I =0TO63 : VPOKE A+ 1 , VAL ( " 8<H " +M I D* ( " 
1 03070F 1 FFF00 1 F3D7F7F7F7F7F3F 1 FE080C0F0F 
8FF00F87CFEFEFEFCFFFEFC01013E7F73E1FFFFF 
EFFE0F0F87C3F 1 FC0807CFECE87FFFFFFFF070F 1 
F3EFCF8" ,1*2+1 ,2) ) :NEXT :P*=" V13L16CECE" 
120 P=RND < 1 ) *230 :Q=-16 :W=0 : V=0 :PLAYP* 
130 S=STICK(0) :X = X+(S=3)*(X<204)*4-(S=7> 
* ( x>4) *4 :P=P+V :Q=Q+W :W=W+ .3 : V= (POINT (P+8 
,Q+8)=2)*V*2+V:IFABS(P-X) < 16ANDABS ( Y-Q) < 
16THENV= (P-X ) * .5 :W=-6 :T=X :GOTO140 
140 PUTSPRITE 0,(X,Y) ,15,0:PUTSPRITE2,(P 
,Q) ,9,1 :IFQ>196THEN150ELSE130 
150 IFP>200ANDP<255THENPRESET (50,50) :C=C 
+ (256-T)¥16:PRINT#l ,"+-f3"; ! !" ;C:FORI=0TO 
211 :PUTSPRITE1 , (232,191-1) ,6,1 :NEXT:LINE 
(50, 50) -(248, 58) ,0 ,BF :GOTO120 
160 PRESET (80, 50) :PRINT#1 , "GAME OVER" :PR 
ESET(90,58) :PRINT#1 , "SCORE" ;C :F0RI=1T031 
:PUTSPRITEI , (RND ( 1 ) *208 ,RND '( 1 ) *178) ,6,1: 
NEXT:GOTO160 
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108 DEFINT A-Z:SCREEN 1,2:WIDTH 30 

110 COLOR 15,1:B0SUB 710 

120 VPOKE ?<H201B,8<HC1 

1 30 B*=CHR* (31) +CHR$ ( 29 ) +CHR* ( 29 ) 

140 C$ (0) ="7<"+B*+'"!>I" :C* ( 1 )="Z1)"+B$+"*'7 

150 C* (2) =<"73"+B-$+"Vz/" :C$ (3) ="*t"+B*+"79 
ii 

160 PLAY "T200V15LBO5GEFEADEDGEFDABO6C2" 
, " T200V 1 4L403EDCDEDC04C2 " 
170 REM ••••••• DRAW STAGE 

180 IF GF THEN 210 

190 FOR 1=0 TO 9 .-READ D* 

200 D*(I)=LEFT*(D*+ "00130000000" ,10) :NEXT 

210 CLS:FOR 1=0 TO 9:F0R J=l TO 10 

220 P=VAL<MID$(D*<I) ,J,1) ) 

230 LOCATE J*2-2,I*2 

240 IF P=0 THEN PRINT ":o"+B*+"l/:>" 

250 IF P>0 THEN PRINT C$(P-1) 

260 NEXT J, I 

270 REM ••••••• MAIN 

280 LOCATE 0,20:PRINT "&"fc$ ? 

290 K=STICK(0) 

300 X=X+(K=3)*(X<9)-(K=7)*(X>0) 

310 Y=Y+(K=5)*(Y<9)-(K=1)*<Y>0) 

320 PUT SPRITE , < X*16+B , Y*16> , 15 ,0 

330 S=STRIG(0) 

340 IF S=0 THEN 290 ELSE CT=0:BEEP 

350 S=STRIG(0) :IF S THEN CT=CT+1 

36.0 115 CT<300 AND S THEN 350 

370 IF CT>299 THEN 640 

380 REM ••••••• ROLLING! 

390 LOCATE 0,20: PR I NT "t" ttlC¥-.T?" 

400 K1=STICK<0) 

410 IF Kl MOD 2=0 THEN 400 ELSE BEEP 

420 IF STICK (0) THEN 420 

430 LOCATE 0,20: PR I NT ".^"^.IC ? " 

440 K2=STICK(0) 

450 IF K2 MOD 2=0 THEN 440 ELSE BEEP 

460 VX=(K1=7)-(K1=3) :VY= (Kl=l ) - <K1=5) 

470 WX=(K2=7)-(K2=3) :WY= <K2=1 > - <K2=5) 

480 P=VPEEK (&H1801 + < Y+VY) *64+ ( X+VX) *2> 

490 IF P=221 THEN 270 

500 P=VPEEK(S<H1B01 + <Y+WY)*64+(X+WX)*2) 

510 IF P0221 THEN 270 

520 ZX=VX+WX:ZY=VY+WY 

530 P=VPEEK ( ?<H 1 80 1 + ( Y + Z Y ) #64+ ( X + Z X ) *2 ) 

540 IF P=221 THEN TX=X+ZX :TY=Y+ZY :0D=2 E 

LSE TX=X+WX:TY=Y+WY:OD=l 

550 IF Kl=K2-2 OR (Kl=7 AND K2=l) THEN C 

=OD ELSE C=-OD 

560 P=VPEEK(?<H1801 + Y*64+X*2) 

570 IF P=177 THEN F=C :IF F<0 THEN F=F+ 

4 

580 IF P=181 THEN F=C+1:IF F<0 THEN F=3 

590 IF P=185 THEN F=C+2:IF F>3 THEN F=0 

600 IF P=1B9 THEN F=C+3:IF F>3 THEN F=F- 

4 

610 LOCATE X*2,Y#2:PRINT ":o"+B*+":o" 

620 LOCATE TX*2 ,TY*2 :PRINT C*<F) 

630 GOTO 270 



640 REM ••••••• CLEAR CHECK! 

650 BEEP:GF=0:FOR 1=0 TO 9:F0R J=0 TO 9 

660 P= VPEEK ( ?<H 1 80 1 + 1 *64+ J*2 ) 

670 IF PO-221 AND P<>177 THEN GF=1 

680 NEXT J, I: IF GF THEN 170 

690 PLAY "T200V15L8O5CFEFDGFGDEFGABO6C2" 

, " T200V 1 4L403CEDECEDC2 " 

700 ST=ST+1:IF ST<13 THEN 170 ELSE END 

710 REM •• « >•§ CHARACTER 

720 READ C*,D$:IF C*="END" THEN 760 

730 FOR 1=0 TO 7:A=ASC(C$)*8+I 

740 VPOKE A,VAL("?<H"+MID$(D*,I*2+1 ,2) ) 

750 NEXT:GOTO 720 

760 READ C:IF C=5963 THEN RETURN 

770 S$="" :FOR K=0 TO 1 :READ D* 

780 FOR 1=0 TO 15 

790 S*=St+CHR*(VAL("?<H"+MID.$(D*:,I*2+l ,2) 

) ) 

800 NEXT I ,K:SPRITE*(C)=S*:GOTO 760 

810 DATA 7,07182046468E8686,-i-,E0180472DA 

D9D9D9 ,9 ,868686464F201807 

820 JJATA I ,D9D9D9DA720418E0 ,* ,0718204F5F 

909Ft3F , 1) , E0 1 804F2F A09F9F 1 

830 DATA *,809F9F4440201807,9,09F9F90A02 

0418E0 ,T ,0718204E5B9BVB9B 

840 DATA H,E01804F262616161 ,^,9B9B9B5B4E 

201807,i>,61617162620418E0 

850 DATA 7,07182040509F9F90,t,E018040222 

F9F901 ,V,8F9F905F4F201807 

860 DATA ?,F1F909FAF2041BE0,1/,CC33CC33CC 

33CC33,END, 

870 DATA 0,FFFFC0C0C0C0C0C0C0C0C0C0C0C0F 

FFF , FFFF030303030303030303030303FFFF 

880 DATA 5963 

890 REM • » >•>• STAGE DATA 

900 DATA ,,,00314,000040013,000000031,,, 
910 DATA ,,000043,0000014,0000003,000000 

^ 1 1 » ? 

920 DATA ,,0000043,000004,00011,00004,,, 

930 DATA 000003, ,0000203,00001 ,00001 ,000 

01 ,0000403 , ,000003 , 

940 DATA , , 00 1 1 00003 , , , 0004 , 00000002 , , , 

950 DATA ,003114,0010003,0040001,001343, 

001 ,001 ,003, , 

960 DATA ,,00002,00014,03000002,0003101, 

0000041 , , , 

970 DATA 0001001 ,0001001 ,00100001 ,002100 

003 ,000012 ,0001 , , , , 

980 DATA , ,00141314.,012000033, 032, 002311 
23 ,000000034 ,04300001 1 ,00143142 , 
990 DATA ,011000003, ,,,,, ,030000003, 
1000 DATA ,,033411123,000041,000013,0000 

31 ,000013,000041 ,000014, 

1010 DATA ,,000332,0021111,0031211,00121 

23,000214, , , 

1020 DATA ,041333411,014,012,0131344,011 

,014,034,043, 
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SHORT PROGRAM ISLMD 



1000 ' **♦ L/3* t»)fi *** 

1010 CLEAR 2ei0,S<HB000:DEFINT A-Z 

1020 GOSUB 1650-.DEF USR0=?<HB000 

DEF USR1=8<HB010:DEF USR2=S<HB02F 

SCREEN 1 : COLOR 15,1 ,1 

WIDTH 32:KEY OFF 

GOSUB 1490:PLAY"O5L64T255" 

X=0:Y=0:A=USR0(0) :A=USR1 (0) 

LOCATE 0,22:FRINT SPCC28); 

LOCATE 0,23: PR I NT SPC(28); 

C*(l )="*=;" :C$<2)="3f":S<l)=l :S<2)=16 

' *** f*r*9'la9V39 *** 

LOCATE 0,22: INPUT" JET ";IN 

LOCATE 0,22:PRINT SPC(15); 

IF lN>252 THEN 1120 

LOCATE 0,22: INPUT" t9"<";IM 

FOR 1=1 TO IN 

II*=RIGHT*(" "+STR*(I),4) 

LOCATE 2,23,0:PRINT "BLUE ";II*;" 

RED ";II*; 

FOR J=l TO 2 

LOCATE X+2,Y+2,1 :T=STRIG (0) +STRIG ( 1 

) :PO=?<HD01F+Y*30+X 

1210 IF T AND PEEK(PO)=0 THEN PRINT C*(j 

) 5 SPOKE PO,S(J) :X=X + 1 :GOTO 1260 

1 220 S=ST I CK ( ) +ST I CK ( 1 ) 

X=x+ (S=7) - (S=3) : Y=Y+ <S=1 ) -<S=5) 
X=X-(X<0)+(X=28) :Y=Y-(Y<0)+(Y=18) 
GOTO 1200 

IF STRIG(0)+STRIG(1) THEN 1260 
IF X=28 THEN X=0 : Y=- ( Y+l ) * ( Y<>17) 
NEXT J, I :LOCATE0,22,0:PRINTSPC(28) 
IF INKEY*<>"" THEN 1290 
' *** T" -L 7.f-V *** 

PLAY"CDEFG" :FOR 1=1 TO IM-1 
A=USR2(0) :A=USR1 (0) 
LOCATE 2, 22 : PR I NT "tr?" -i'" ;I + 1 
B=PEEK (?<HD450) +PEEK <S<HD451 ) *256 
R=PEEK (&HD452) +PEEK <?<HD453) *256 
B*=RIGHT*<" "+STR$(B) ,4) 

R$=RIGHT$<" "+STR*(R) ,4) 

LOCATE 2,23,0:PRINT "BLUE ";B*;" 
" |R*j 

R*B=0 THEN 1=1 M 
IF INKEY*=CHR*(13) THEN I=IM 
NEXT 

LOCATE 1,22,0: PR I NT " BLUE " ;B*;" 
RED " ;R*; :V$=" .' T\+ t"7" 

1430 IF B>R THEN A*="BLUE"+V$ ELSE IF R>B 
THEN A*="RED"+V* ELSE AS^'t^T f 7. " 

1440 LOCATE 0,23:PRINT " " ; A$ ;SPC < 14) 
PLAY"GFEDC" 

IF INKEYfOCHR*(13) THEN 1460 
GOTO 1070 
' **# vram t!'VT-i' *** 

1490 FORI=0TO7:VFOKE2<HE0*8+I ,0:NEXT 

1500 FORI=?<HEl TO S<HF0 STEP 15 

1510 RESTORE 1630 

1520 FOR J=0 TO 7 

1530 READ A:VPOKE I*8+J,A:NEXT J, I 

1540 VPOKE BASE (6) +28,65 



1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 

1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 

1190 

1200 



1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 

RED 
1390 IF 

1400 

1410 
1420 



1450 
1460 
1470 
1480 



1550 VPOKE BASE (6) +2 ,113 

1560 VPOKE BASE (6) +3 ,113 

1570 VPOKE BASE (6) +30, 129 

1580 PRINT" *** SUPER LIFE GAME ***' 

1590 PRINT " i 



1600 

" :NEX 

1610 
i " 

1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

ror i 

1710 
1720 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 



FOR 1=1 TO 18:PRINT 

T 

pRINT „ , 



" ;SPC<28) ;" | 



RETURN 

DATA 0,60,126,126,126,126,60,0 
' *♦* i-_r_>3" d— ?" - #*♦ 
RESTORE 2000 :FOR 1=0 TO 30:C=0 
FOR J=0 TO 7: READ A* 
A=VAL<"?<H"+A*) :C=C+A 
POKE ?-<HB000+I*8+J,A:NEXT 
READ C*:C1=VAL("!<H"+C*) 
IF CKXC AND ?<HFFF) THEN PRINT "Er 
n" ;2000+I*10:STOP 
NEXT:RETURN 
' »** 5&Li3" f" —9 *** 
DATA 21 ,00,D0,01 ,B0, 04, 36, 00, IDC 
DATA 23 ,0B ,78 ,B1 ,C2 ,06 ,B0 ,C9 ,398 
DATA 21 ,42,18,11 ,58 ,D2 ,0E , 12 , 1D6 
DATA 06 , 1C , 1 A ,C6 ,E0 ,CD ,4D ,00 ,2FC 
DATA 23,13,05,C2,1A,B0,23,23,20D 
DATA 23,23,0D,C2,18,B0,C9,U ,2B7 
DATA 00 , 00 , ED , 53 , 50 , D4 , ED , 53 , 3A4 
DATA 52,D4,DD,21 ,00,D0,01 , IF, 314 
DATA 00, DD, 09, 21 ,58,02,06,12,249 
DATA 0E,1C,AF,DD,86,E1 ,DD,86,480 
DATA E2 ,DD ,86 ,E3 ,DD ,86 ,FF ,DD ,667 
DATA 86,01 ,DD,86,1D,DD,86,1E,388 
DATA DD,86,1F,F5,E6,0F,57,F1 ,4B4 
DATA 0F ,0F ,0F ,0F ,E6 ,0F ,5F ,82 ,212 
DATA 3C ,3D ,CA ,84 ,B0 ,3D ,CA ,84 ,402 
DATA B0,3D,CA,8A,B0,3D,CA,91 ,489 
DATA B0 ,C3 ,84 ,B0 ,3E ,00 ,77 ,C3 ,41F 
DATA A6 ,B0 ,DD ,7E ,00 ,77 ,C3 , A6 ,491 
DATA B0 ,DD ,7E ,00 ,3C ,3D ,C2 ,8A ,3D0 
DATA B0,7A,93,DA,A3,B0,3E,01 ,429 
DATA C3 , A5 ,B0 ,3E , 10 ,77 ,3D ,CA ,3E4 
DATA B2 ,B0 ,D6 ,0F ,CA ,BE ,B0 ,C3 ,542 
DATA C7 ,B0 ,ED ,5B ,50 ,D4 , 13 ,ED ,4E3 
DATA 53 , 50 , D4 , C3 , C7 , B0 , ED , 5B , 4F9 
DATA 52 ,D4 , 13 ,ED ,53 ,52 ,D4 ,DD ,47C 
DATA 23 , 23 , 0D , C2 , 4A , B0 , DD , 23 , 30F 
DATA DD ,23 ,05 ,C2 ,48 ,B0 ,21 ,00 ,2E0 
DATA D0,01 , IF, 00, 09, 11 ,58,D2,234 
DATA 06,12,0E,1C,1A,77,23,13,109 
DATA 0D ,C2 ,E4 ,B0 ,23 ,23 ,05 ,C2 ,370 
DATA E2 ,B0 ,C9 ,FF ,FF ,FF ,FF ,FF ,756 
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7XtWK-LIST 



100 ' MMI i/a* t'vx-f" 

11 a SCREEN1 , ,®:KEY OFF :WIDTH30 : CLEAR 100 

0:DEFINT A-Z sDEFSNG T,Y:BOSUB 690 

120 TC=0:L=2:ST=1 :PLAY"vl5" 

130 U*=" f *«*«• ) ":H=1 

140 COLOR 15,1 ,1 :CLS:GOSUB 790 

150 LOCATE 1 ,0 SPRINT "SCORE" ;TC 

160 LOCATE 15,0: PR I NT "LEFT" ;L 

170 S$="" sC*="" :TX=0:TV=.5:MX=15:MY=22:Y 

Y=22:MV=0:GOSUB 620 

180 ' 4MM Mb 1\j~*--> — 

190 FOR 1=4 TO 7:FDR .1=0 TO 29 

200 S=STICK(0)+STICK(1) 

210 X0=MX : Y0=MY :MX=MX+ <S=7) - <S=3) 

220 MX=MX-(MX=1)+(MX=28) 

230 TR=STR I G ( ) +STR I G ( 1 ) 

240 IF YY=22 AND TR THEN PLAY"164o4c" 

250 IF YY<>22 AND TR=0 THEN TR=-.5 

260 YY=YY+TR:MY=INT(YY) 

270 V=&H1800+MY*32+MX + 1 sVPOKE V,145 

280 R=?<H1800+Y0*32+X0+1 

290 IF(MYOY0) + (MXOX0)THEN VPOKE R,32 

300 LOCATE J, I SPRINT S* 

310 LOCATE 29- J, 11-IsPRINT S* 

320 LOCATE TX,3:PRINT 13* 

330 TX=TX+TV 

340 IF TX=0 OR TX=22 THEN TV=-TV 

350 W=VPEEK (?<H1800+MY*32+MX + 1 ) 

360 IF VV=177 THEN 510 

370 IF MY=3 THEN 430 

380 NEXT:NEXT 

390 LOCATE 29, 7: PR I NT C$ 

400 LOCATE 0,4 sPRINT C* 

410 GOTO 190 

420 ' — V9*) iM/T-t mm 

430 IF VV=128 THEN 450 

440 YY=22:G0T0 380 

450 TC=TC+50*H 

460 VPOKE 8cH1800+MY*32+MX + l ,145 

470 PLAY"! 64o5cdef" sFORI=l TO 10®8sNEXT 

480 IF H=5 THEN ST=ST+1 sGOTO 130 



490 H=H+1 :U*=" ?"+STRIN6* (6-H , "*" ) + •"?• " 

500 GOTO 140 

510 COLOR 15,8,3 

520 PLAY "o3164cc+dd+ed+dc+c" sL=L-l 

530 ' ••• T'-L a-i\"- — 

540 IF L>--1 THEN FOR 1 = 1 TO 1000: NEXT: 60 

TO 140 

550 FOR 1 = 1 TO 2000: NEXT: COLOR 15,1 ,1 sCLS 

560 PLAY "tl20sm200001 8o4f cf c:ececd4cD3bo 

4c2" , "t 120sl 8o4co3ao4co3ao4co3go4co3gb4a 

gg2" ,"tl20vl2o31 2f edc 

570 LOCATE 10 ,8 : PRINT "GAME OVER" 

580 L0CATE9 , 1 : PR I NT " SCORE " ; TC 

590 L0CATE8, 12 sPRI NT "REPLAY [YD KEY" 

600 IF INKEY*="y" THEN 120 ELSE 600 

610 ' ••• "Otr* i\°?---> ••• 

620 FOR 1=1 TO 6:R=INT(RND<1)*10)+1 

630 IF ST>R THEN AA*=" 7 7 " sCC*=" 

" ELSE AA*=" 7 " :CC*=" 
640 R=INT(RND<1>*10) 

650 S*=S*+AA*+CHR* (31) +CHR* (31) +STR I NG* ( 
R,28) 

660 C*=C*+CC*+CHR* (31) +CHR* (31) +STR I NG* ( 
R,28) 

670 NEXTsRETURN 
680 ' ••• VRAM tl'VT-f — 
690 FOR 1 = 1 TO 5: RE AD A$ : A=ASC ( A*) *8 
700 FOR J=0 TO 7 s READ B* :B=VAL ( "&H"+B*J 
710 VPOKE A+J,BsNEXT:NEXT 
720 FOR 1=392 TO 720 STEP 8 
730 FOR J=0 TO 1 :FOR K=0 TO 3 
740 N= I + J*4+K : S= VPEEK ( N ) 
750 SS=S OR S¥2:IF J=0 THEN SS=SS¥2 
760 VPOKE N,SS:NEXTK,J,I sFOR 1=0 TO 7 
770 VPOKE 384+1 , VPEEK (632+1 ) sNEXT 
780 VPOKE 451 ,?<H7E: RETURN 
790 VPOKE&H20 1 , 2<H50 
800 VPOKE?<H20 1 2 , ?<HE0 
8 1 VPOKE?<H20 1 6 , &HC0 
820 VPOKE?<H20 1 8 , &H40 
830 RETURN 

840 DATA J),10,10,38,ba,aa,ee,ba,92 
850 DATA 7,3c,7e,f-f ,-f-f, + d,fd, 72,3c 
860 DATA #,3c,7e,c3,db,c3,7e,3c,00 
870 DATA ?, 03, 07, 26, 3e, 26, 07, 03, 00 
880 DATA *,c0,e0,64,7c,64,e0,c0,00 
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10 'MAKE (MMLSEQ.BIN) Cmkbin.bas] 

20 CLEAR 100,?<HAFFF 

30 AD=?-:HC800:GYOU=1000 

40 SUM=0 

50 FOR I=0TO7:READA*:D=VAL("?<H"+A*) :SUM= 

SUM+D : POKE AD ,D :AD=AD+1 :NEXT 

60 READ A$:IF SUMOVAL ( "?<H"+A*) THEN PRIN 

TGYOU ; " 3" *•?© DATAfr" W yjtto " : END 

70 IF GY0U=1910 THEN BSAVE"MMLSEQ .BI N 

HC800,AD:END 

80 GYOU=GYOU+10:GOTO 40 

1000 DATA C3,F9,C9,C3,S3,CA,C3,C4,61C 

1010 DATA CA, C3, 00, 00, C3 ,00,00,00,250 

1020 DATA 00,00,00,00,00,00,00,00,0 

1030 DATA 00,00,00,00,00,00,00,00,0 

1040 DATA 00,00,00,00,00,00,00,00,0 

1050 DATA 00,00,00,00,00,00,00,00,0 

1060 DATA 00,00,00,00,00,00,00,00,0 

1070 DATA 00,00,00,00,00,00,00,00,0 

1080 DATA 00,00,00,00,00,00,00,00,0 

1090 DATA 00,00,00,00,00,00,00,00,0 

1100 DATA 00,00,00,00,00,00,00,00,0 

1110 DATA 00,00,00,00,00,00,00,00,0 

1120 DATA 00,00,00,00,00,00,00,00,0 

1130 DATA 00,00,00,00,00,00,00,00,0 

1140 DATA 00,00,00,00,00,00,00,00,0 

1150 DATA 00,00,00,00,00,00,00,00,0 

1160 DATA 00,00,00,00,00,00,00,00,0 

1170 DATA 00,00,00,00,00,00,00,00,0 

1180 DATA 99,01 ,00,00,00,03, 13,09,239 

1190 DATA FD,7E,01 ,B7 ,CA ,ED ,09 ,DD ,590 

1200 DATA 21 ,92,CS,FD,7E,0C,DD,BE,49D 

1210 DATA 02,28,04,38,1A,18,38,FD,1CD 

1220 DATA 7E,0B,DD,BE,01 ,28,04,38,289 

1230 DATA 0E,18,2C,FD,7E,0A,DD,BE,372 

1240 DATA 00,28,04,33,02,18,20,FD,19B 
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10 'NOTE GRAPHIC DISPLAY Cnotegrp .bas] 

20 CLEAR 1 00, &HAFFF: DIM X ( 128) ,Y < 128) 

30 DEFUSR=&HC800 : DEFUSR 1 =&HC806 

4« 0UT1 ,0:OUT1 ,0:OUT1 ,?<H40:OUT1 ,?>H4E:0UT 

1 ,S<H15 '8251 fZl'Vy^'T.* . 

50 COLOR 1 ,10,10 :SCREEN0: WIDTH 40:KEYOFF 

60 ON STOP BOSUB700S5TOP ON 

70 BLOAD" MMLSEQ.BIN" 

80 SCREEN© 

90 FILES"*. MML 

100 PRINT:INPUT"MMLDATA=" ;MF* 

110 BLOAD MF*+" .MML" 

120 ' DRAW SCREEN 

130 SCREEN2,0 

140 OPEN"GRP:"AS#l 

150 FOR A=10 TO 130 STEP 40 

160 LINE(16,A)-(240,A+30) ,15,BF 

170 FOR 1-26 TO 220 STEP 16 

180 IF 1=58 OR 1=122 OR 1=170 THEN 200 

190 LINE(I+3,A)~(I+9,A+19> ,1 ,BF 

200 NEXT I 

210 FOR 1=16 TO 240 STEP 16 

220 LINE (I ,A> •-<! ,A+30) ,1 

230 NEXT I 

240 NEXT A 

250 DRAW " BM 1 8 , 1 52 " : PR I NT# 1 , " C 1 " 

260 DRAW"BM130,152" :PRINT#1 ,"C2" 

270 DRAW "BM 18, 11 2" :PRINT#1 ,"C3" 

280 DRAW " BM 1 30 , 1 1 2 " : PR I NT# 1 , " C4 " 

290 DRAW " BM 1 8 , 72 " : PR I NT# 1 , " C5 " 

300 DRAW " BM 1 30 , 72 " : PR I NT# 1 , " C6 " 

310 DRAW"BM18,32" :PRINT#1 ,"C7" 

320 DRAW " BM 1 30 , 32 " : PR I NT# 1 , " C8 " 

330 FOR J=0TO4:FOR I=0TO1.4 :DRAW"BM"+3TR* 

(18+1*16)+" ,"+STR*(152~vI*40) :PRINT#J ,MID 

*("CDEFGABCDEFGAB" ,1+1 ,1) :NEXT:NEXT 

340 SPR I TE* ( ) =CHR* ( &H3C ) +CHR* < S-.H7E ) +CHR 

* ( S<HFF ) +CHR* ( &HFF ) +CHR* ( &HFF ) +CHR* ( &HFF ) 
+CHR* ( ?<H7E ) +CHR* ( &H3C ) 

350 SPR I TE* ( 1 ) =CHR* ( S/HFF ) +CHR* < S<HC3 ) +CHR 

* ( m A5 ) +CHR* ( ?<H99 ) +CHR* ( 2-:H99 ) +CHR* ( ?<HA5 ) 
+CHR* (&HC3) +CHR* <?<HFF) 

360 LINE (16, 168)- (240,180) ,8 ,BF :DRAW"BM3 
0,170" :COLOR 15 :PRT.NT#1 , "MSX MAGAZINE 19 

89 4ror?" 

370 'SPRITE POST I ON 

380 RESTORE390:FOR I=24T035 :READ X(I),Y( 

I) :NEXT 

390 DATA 20,150,28,140,36,150,44,140,53, 

1 50 , 68 , 1 50 , 76 , 1 40 , 84 , 1 50 , 92 , 1 40 , 1 00 , 1 50 , 

103,140,117,150 

400 F0RI=24TO35 :X ( 1 + 12) =X ( I ) +1 12 sNEXT 

410 F0R.J=1T03:F0RI=24T047:X<I+24*J)=X (I) 

;NEXT I ,J 

420 F0RJ=1T07:F0RI=24T035:Y(I+12*J)=Y<I> 

-40*INT (J/2) : NEXT I , J 

430 Y( 128) =209 

440 LINE (16, 168) -(240, 180) ,3 ,BF :DRAW"BM1 

06 , 1 72 " : COLOR 1 : PR I NT# 1 , MF* 




450 'MIDI CHANNEL PARTI --8 

460 POKE ?<HC810,1 'PARTI MIDICH 2 

470 POKE ?<HC820,2 ' PART2 MIDICH 3 

480 POKE ?/HC830,3 ' PART3 MIDICH 4 

490 POKE ?<HC840,4 'PART4 MIDICH 5 

500 POKE 2<HC850,5 'PART5 MIDICH 6 

510 POKE ?<HCS60,6 'PART6 MIDICH 7 

520 POKE &HCB70,7 'PART7 MIDICH 8 

530 POKE ?/HC380,8 'PARTS MIDICH 9 

540 'START 

550 A=USR(0) 

560 ' MAIN LOOP 

570 D=PEEK(?<HC81D) :PUTSPRITE 0,(X(D),Y(D 

)) ,5,0 

580 D=PEEK<S<HC82D) : PUTSPR I TE 1 , (X (D) ,Y (D 

) ) ,13,1 

590 D=PEEK(?/HC83D) :PUTSPRITE 2,(X(D),Y(D 

)) ,2,0 

600 D=PEEK(?<HC84D) :PUTSPRITE 3,(X(D),Y(D 

)) ,6,1 

6 1 D=PEEK ( ?<HC85D ) : PUTSPR I TE 4 , ( X ( D ) , Y ( D 

) ) ,4,0 

620 D=PEEK (?<HC86D> : PUTSPR I TE 5 , (X (D) ,Y (D 

)) ,5,1 

630 D=PEEK(?/.HC87D) : PUTSPR I TE 6,(X(D),Y(D 

)) ,7,0 

640 D=PEEK(?<HC88D) :PUTSPRITE 7,(X(D),Y(D 

)) ,8,1 

650 I F PEEK ( &HFD9A ) < >?<HC9THEN570 

660 'ENDING LOOP 

670 CLOSE#l :GOTO 80 

680 FORI=0TO31 rPUTSPRITEI , (0,209) :NEXT 

690 FORT=0TO500:NEXTT 

700 'INTERLIPT FUCK OFF, MIDI ALL NOTE OFF 

710 P0KE?<HFD9A ,?<HC9 : DEFUSR 1=?<HC806 :A=USR 

1(0):STOP OFF:COLOR 15,4,7 
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10 'MML-MIDI FORMAT CONVERTER [conv.basJ 

20 CLEAR 100,?/HAFFF 

30 SCREEN0:KEYON 

40 INPUT "FILENAME" ;FL* 

50 PA=?.HB000 

60 'PART ADDRESS 

70 POKE PA,?.:H10:POKE PA+1 ,8<HB0 

80 PART=1 :AD=2<HB010 

90 'main 

100 L=4:O=4:R=4:V=8:T=120 

110 READA* 

120 IF A*="*"THEN POKE AD, 255: POKE AD+1 , 

255: PR I NT "part" ; PART ; "end " :GOSUB710:IF P 

ART=8 THEN 730 ELSE PART=PART+1 : AD*=RIGH 

T*("000"+HEX*(AD) ,4) :POKE S<HB000+ <PART*2 

) -2 , VAL ( " 2<h " +R I GHT* ( AD* , 2 ) ) : POKE ?<HB000+ 

( PART*2 ) - 1 , VAL ( " ?<h " +LEFT* ( AD* , 2 ) ) : GOTO90 

130 P=l 

140 IF P>LEN(A*) THEN 110 

150 X*=MID*(A*,P,1) 

160 U=INSTR("rRcCdDeEfFgGaAbBoQl LvVtT<>@ 

" ,X*) 

170 IF U>0THEN 190 



/ \ 





180 IF I NSTRC' 01 23456789. #+-" ,X*)=8THENP 

RI NT "FORMAT EROR-" ; A* :END ELSE P=P+1 :60T 

140 

190 PS=P+1 :GQSUB220:PS=P+1 :BOSUB290 

200 ON U GOSUB 380,380,470,470,480,480,4 

90,490,500,500,510,510,520,520,530,530,5 

90 ,590 ,440 ,440 ,650 ,650 ,67® ,670 ,630 ,6.10 ,6 

90 

210 P=P+1 :GOTO 140 

220 'extract value s* 

230 8*="" 

240 IF P5>LEN(A*)THENRETURN 

250 X X *=M I D* < A* , PS , 1 ) 

260 IF<XX*=>"a"AND XX*=<"z " ) OR (XX**>"A" 

AND XX*=<"Z")OR XX*="@"THENRETURN 

270 IF XX*<"0"OR XX*>"9"THEN:PS=PS+1 :G07 

240 

280 S*=S*+XX*:PS=PS+1 :GOTO 240 

290 'serach C „+#-•:] 

300 FUTEN=0:HANO=0 

310 IF PS>LEN(A*)THEN RETURN 

320 XX*=MID*<A*,PS,1) 

330 IF (XX*>="a"AND XX*<="z " ) OR (XX*>="A" 

AND XX*<="Z")OR XX*="@"THEN RETURN 

340 I F X X *= " . " THEM FUTEN=FUTEN+ 1 

350 IFXX*="#"OR XX*="+"THEN HANO=l 

360 IFXX*="-"THEN HANG- 1 

370 PS=PS+l:GOTO 310 

380 'kyufu 

390 GOSUB400 : PR I NT " k y uf u st ep 1 1 me= " ; 

ST : POKE AD , 8<.HS© : POKE AD+ 1 , ST : G0SUB7 1 : RE 

TURN 

400 IF S*=""THEN ST=192/L*(2-.5-"FUTEN} :G 

DTO 420 

4 1 ST= 1 92 / VAL < S* ) * ( 2- . 5-"FUTEN ) 

420 IF ST > 192 THEN PR J NT" ftM) W S*T &#* "t 

&*&1" :PRTNTA*:FND 

430 RETURN 

' I ength 

L=VAL«3$) : RETURN 

' o n p*u C c d ef g, ab ] 

N=0::GOTO 540 

N=2:G0T0 540 

N=4:G0T0 540 

N=5:G0T0 540 

N=7:GQT0 540 

N=9:G0T0 540 

N=ll :GOTO 540 
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660 



N= ( N+H ANO+ 1 2 ) MOD 1 2+0* 12+1 2 

GOSUB400 

POKE AD , N : POKE AD+ 1 , ST : G0SUB7 1 

PRINT"note=" ;N;"step time=" ;ST 

RETURN 

'octave 

0=VAL (S*> : RETURN 

'octave up L>H 

IF 0<8 THEN 0=0+1. :RETURN 

'octave clown C < 3 

IF 0>1 THEN 0=0-1 : RETURN 

' vol ume 

POKE AD,S<HA0:POKE AD+1 , INT ( VAL <S*> *8 



. 5 ) : G0SUB7 1 : RETURN 

670 'tempo 

680 T=VAL(S*> /75:P0KE AD,(S<H90 OR INT(T) 

) : POKE AD+ 1 , I NT ( ( T- I NT ( T ) ) *256 ) : GQSUB7 1 

:RETURN 

690 'program chenge C€*3 



WH POKE AD.S-:HB0:POKE AD+1 , VAL (S*) 8 GOSUB 

7.0: RETURN 

710 'next part address 

720 IF AD<S<HC7FETHEN AD=AD+2 :KEY 1 ,HEX* ( A 

D) : RETURN ELSE PR] NT "MML (Jj data fr" 15*5*5" 

»*•" SEND 

730 ' 

740 FL*=FL*+" .MML" 

750 BSAVE FL*,?<HB000 ,AD 

760 END 

5000 'MML sumple data part 1- part 4 L'sumpl 

B-3 

5010 'part 1 

5020 DATA @37tl40vl41 8o5 

5030 DATA edcde<a>-f2.dc<b>cd<g>e2. 

5040 DATA c <.bab >c <f >d2c4<bag#ab >dc <b >cde 

4 

5050 DATA edcde<a>-f 2 .dc<b >cd<g>©2 . 

5060 DATA c<bab>c<f >d2c4<bag#ab4a2.> 

5070 DATA @50ag-f ga>c<b2 .g-f e-f gba2 . 

5080 DATA f ede-f ag#2b4>c<bab>cde2 . 

5090 DATA r8g-fedc<b2.r8>f edc<ba2. > 

5100 DATA rSedc<bag#2b4r8ed -::bae<a2 . 

5110 DATA * 

5120 'part 2 

5130 DATA @37tl20vl5o6 

5140 DATA r2.r2.r2.r2. 

5150 DATA 

5160 DATA 

5170 DATA 

5180 DATA 

5190 DATA 

5200 DATA 

5210 DATA 

5220 DATA * 

5230 'part 3 

5240 DATA @37t 120vl 11 8o5 

5250 DATA r-2.r2.r-2.r2. 
5260 DATA r2.r2.r2.r2. 

5270 DATA c<bab>c4d2 . <bagab4>c2 . 

5280 DATA <ag.f ga4b2a4g#f #ef #g#4e2 . > 

5290 DATA f edef ag2 .edcdege2 . 

5300 DATA dc<b>cd-fe2.ag#eg#ab>c#2. 

5310 DATA tedc<bag2 . >edc<bag#e2. > 

5320 DATA dc<bag+e2 . <alr2 

5330 DATA * 

5340 'part 4 

5350 DATA @22t 120vl31 8o3 

5360 DATA a2 . >dc<b >cd<bg2 . >c<bab >c<a 

5370 DATA f 2 .bag#abae2g#4ag#ab >c4< 

5380 DATA a2.1 8>dc<b>cd<bg2 . >c<bab >c<a 

5390 DATA f 2 .bag#abae2 .ag#a>c<a4 

5400 DATA @50d 4a4 >d 4 < g ab >c d <be4b 4 >e4 < ab > 

cdec ■'■. 

5410 DATA d4a4>d4<e-f#g#abea2.ab>c#dec#< 

5420 DATA d4a4>d4<gab>cd<be4b4>e4<ab >cde 

c < 

5430 DATA d4a4>d4<ef #g#abg#a2ec<a2 . 

5440 DATA * 

5450 'part 5 

5460 DATA * 

5470 'part 6 

5480 DATA * 

5490 'part 7 

5500 DATA * 

5510 'part 8 

5520 DATA * 
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«* MSX SPRING 

LOVELY G0!G0! 

-PSG JK-Vay~ 

L-l-S-T 



1 23-<-v(I»L/c7°n 7=7 A 

0>x\ 1 ^wfe*n(f*{-n*>^ 

«>£(J-f TTo TAKERUT'SSflSLT 
l^MSX SPRINGjlZAoTl^ 
fe <7)( C <7)7°P £ 7 A<7)<&) ( J FM^ 
ig*ffl<7)fcAv MSX2 + ^ FMPAC 
£8^Tl^«Cl*A(JteffiT#tt^ 

PSGA-v a >*ffl&tZ ZtVZ 



ftr? T V. ^ LMb tft£%>T)\s7 7"< 





"M5Sf" 
;FOR J=0 TO 31rREAD B*:A$=A**CHR*.<VAt. < 



I ,VAL( M &H"+A*i :NEXT 

I ,VAL("?<H"+A*) :NEXT 
=V OR (V/2) OR (V/4) 
')+BIN*(VV) :HID*<W*,57 = "0' 



100 REM **•* LOVELY BO! GO! *** 

110 SCREEN 1,2: COLOR 15 ,2 ,3 :DEFINT A-Z: WIDTH 30 

120 KEY OFF :DEFFNR ( X , Y ) =VPEEK (6145+X+Y*32) 

130 LOCATE 12,12:PRINT 

140 FOR 1=0 TO 2:A*="" 

?<H"+B*) ) 

150 NEXT:SPRITE*(I)=A*:NEXT 

160 FOR 1=816 TO 863: READ A*:VPOKE 

170 FOR 1=952 TO 967:READ A*:VPOKE 

180 FOR 1=264 TO 727 : V=VPEEK ( I ) : W 

1 90 V V*=STR I NB* < 8-LEN ( B I N* < W ) ) , " 

:VPOKE I ,VAL("?<B"+W*) :NEXT 

200 FOR 1=8205 TO 8207: READ A:VPOKE I,A:NEXT 

210 PLAY "T200V15O6L32" , "T200V15O6L32" , "T200V15G4L4" 

220 X=5:Y = 11 :MX = 14:MY=4:C=1 :Q*="w " :G*="" 

230 LOCATE 3, 9: PR I NT "k "STRING* (21 , "h ") "j " sFOR 1 = 10 TO 20:LOC 

ATE 3,1 

240 PRINT " i"SPC(21) "i" :NEXT:LOCATE 3,21:PRINT "j "STRING* (21 , 

"h") "k" 

250 A= 145: FOR 1=5 TO 17 STEP 2: FOR ,J=U TO 19 STEP 2: LOG ATE I 

,J:PRINT CHR*(A) 

260 A=A+1:IF A=160 THEN A=224 

270 NEXT: NEXT 

280 FOR 1 = 19 TO 21 STEP 2:F0R ,7=11 TO 19 STEP 2 

290 IF 1 = 19 AND (,7=17 OR ,7=19) THEN 300 ELSE LOCATE I ,,7 : PR I NT 

CHR*(A> :A=A+1 

300 NEXT: NEXT 

310 A=l :A*=" wo f)£^g-f" .-FOR 1 = 19 TO 23 STEP 4 -.FOR ,7=1 1 TO 19 STE 

P 2 

320 IF K>19 OR ,7>16 THEN LOCATE I,. J: PR I NT MID* < A* , A , 1 ) : A=A+1 

330 NEXT: NEXT 

340 LOCATE 6,1:PRINT "= LOVELY GO! GO! =" 

350 LOCATE 4,22:PRINT "BY K .KUBIMAWARI /ASCII " 

360 LOCATE 5,4:PRINT "HIS NAME : w" :LOCATE 5,6:PRINT "HER NAME: 



3) :XX=XX*2 
:IF S THEN 



GOSUB 810 



370 
380 
390 

400 

410 

420 

430 

TURN 

440 IF FNR(X,Y)=102 THEN ON C GOTO 480,490 

450 G6*=CHR* ( FNR ( X , Y ) ) 

460 IF GG*<>"g" THEN G*=G*+GG* :LOCATEMX ,MY :PRINT GG*:LOCATEMX 

+ 1 ,MY:PRINTQ*:MX=MX + 1 

470 RETURN 



PUTSPRITE0, <X*8+4,Y*S-5) ,8,0 

IF STRIG(0) THEN GOSUB 840: GOSUB 420 

S=ST I CK ( ) : X X = - ( S=7 ) * ( X >5 ) + ( S=3 ) * < X < 

Y y=- ( S= 1 ) * ( Y > 1 1 ) + ( S=5 ) * ( Y < 1 9 ) : Y Y = Y Y* 

X = X + XX :Y = Y + YY :GOTO 370 

I F FNR ( X , Y X > 1 03 OR LEN ( G* ) =0 THEN 440 

G*=MID*(G*,1 ,LEN(G*)-1) : LOCATE 14 ,MY : PR I NTS* 



Q*:MX=MX 1 :RE 



192 #* MSX SPRING 



:MX=14:MY=6:C=2:Q*=" 



: LOCATE 14, 6: PR I NT 



480 F*=G*:G*=' 

TO 370 

490 M*=G*:IF L.EN <M*+F*> =0 THEN 1=13 :G0T0538 

500 FS-FS+M* : M*= " " : FOR I = 1 TO LEN ( F* ) : ff=ASC ( M I D* ( F 

A<221 OR A>223 THEN M* sa M*+CHR*(A) 

510 NEXT 

520 I=LEN<M*> 

530 IF 1X4 THEN LOCATE 7,8:PRINT 

5000 t NE XT :CLS: GOTO 210 
540 DIM PCI-1 ,1) 

LOCATE 3, 8: PR I NT "£<!& £flr t" --U-" *9 

FOR K= 1 TO I : A= ASC ( M I D* ( M* , K , 1 ) ) 



550 
560 
570 
580 
590 

600 

610 
620 
630 
640 
650 
660 
670 
680 
690 

700 

710 

720 

730 

SUB 

740 

60 

750 

760 

770 

780 

790 

800 

TO 



Tto-.jm$ WrtAMft 



+r ?m < 



IF 
IF 
IF 
IF 
IF 
IF 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



B=l 

B=<A-2)M0D5+1 

B=3 

B=(A--4")M0D5+1 

B=AM0D5+1 

B=5 



A=253 
A<253 
A=245 
A<245 
A<224 
A=134 
P(l ,K)=B:NEXT 
FOR !<=2 TO 1-1 
FOR J=l TO I-K+l 
A= ( P ( l<~ 1 , J ) +P ( l<- 1 , J+ 1 ) ) MOD 1 
P(K,J>=A:PLAY"T240O3G64" :GOSUB 850 
NEXT 
NEXT: PLAY "T18506C1R1" , "T18506E1R1 " ,' 
G=P<I-1 ,1)*10+P(I-1 ,2) 

FOR 1=10 TO 20:LOCATE 4,I:PRIIMT STRING*(21 
GOSLIB 820 

RESTORE 980:X=58:Y=83:PUTSPRITE0, (X ,Y) ,8,1 
990:GOSUB 860 
X=58:Y==107:PUTSPRF 



T 185066 1R1 



E0, (X ,Y> : LOCATE 7 



KM 



:GOSUB 860 



LOCATE 6,17:PRINT 

PRINT G" l \°-t.ybT^" 

FOR 1=0 TO 2000:NEXT:LOCATE 11,19:PRINT 

GOSUB 830:C=0:CC=0 

CC=CC+1:IF CO100-G THEN CC=0:C=C XOR 
" PUTSPR I TE0 , ( 1 52 , 1 48 > , „ C+ 1 : 1 F STR I G ( ) 
210 ELSE 790 



810 PLAY "07C" ,"07E" :GOTO 850 

820 PLAY "T230O6L8G8.R16G16R16G16R16G2.G#4G4G#4O7C1 ." 

L8G8 . R 1 6G 1 6R 1 6G 1 6R 1 6G2 . G#4G4G#406C 1 . " : GOTO 850 

830 PLAY " 05T 1 20V 1 5L8C4R8C04B405E04BA 1 B4R8BA 1 6R 1 6A 1 6R 1 6B 1 6R 1 6 

B05C1L32" :GOTO 850 

340 PLAY "04C8" ,"03A8" 

IF PLAY(0) THEN 850 ELSE RETURN 
FOR J=0 TO 1000:NEXT:RETURN 

DATA 00, 0C, 12, 21 ,20, 40, 40, 40, 20, 20, 10, 10, 08 .,04, 02, 01 
DATA 00 ,60 ,90 ,08 ,08 ,04 ,04 ,04 ,08 ,08 , 10 , 10 ,20 ,40 ,80 ,00 
DATA 00 , 0C , 1 E , 3F , 3F , 7F , 7F , 7F , 3F , 3F , 1 F , 1 F , 0F , 07 , 03 , 1 
DATA 00 ,60 ,F0 ,F8 ,E8 ,FC ,F4 ,F4 ,F8 ,F8 ,F0 ,F0 ,E0 ,C0 ,80 ,00 
DATA 00 ,40 ,8C , IE ,3F ,3F ,3F ,3F , IF , IF ,0F ,07 ,23 , 1 1 ,00 ,00 
DATA 08 ,04 ,64 ,F0 ,D8 ,F8 ,E8 ,E8 ,F0 ,F0 ,E0 ,C0 ,84 , 18 ,00 ,00 
DATA 02 ,02 ,22 ,62 ,FC ,60 ,20 ,00 ,00 ,00 ,20 ,60 ,FE ,60 ,20 ,00 
DATA 00 ,00 ,00 ,CC ,33 ,00 ,00 ,00 , 10 , 10 ,20 ,20 , 10 , 10 ,20 ,20 
DATA 10 ,28 ,74 ,DA ,6D ,3A , 14 ,08 ,08 , 14 ,3A ,6D ,DA ,74 ,28 , 10 
DATA 0F , 03 , 05 , 39 , 48 , 48 , 30 , 00 , 1 C , 22 , 22 , 1 C , 08 , 3E , 08 , 08 
DATA 194,66,130 
DATA Zfrntf-MF T" litre! ,«.h£«*ftW) ftt»l*^tt? , 



850 
860 
870 
880 
890 

900 

910 
920 
930 
940 
950 
960 
970 
930 
990 



RE ADA* : FOR I = 1 T'OLEN ( A* ) : PR I NT M I D* < A* 



1 :PUTSPRITE0. , (X , Y) :FORH=0TO1 sNEXT :NEXT ;NEXT :RETURN 
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